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EN TOUTE FRANCHISE 



Ou en etes-vous ? Quels sont vos pro jets immediots en matiere d'informatique personnel!© ? 
Avez-vous Tintention d'ecrire des programmes et, si oui, en utilisant quels langoges ? Vous 
etes-vous laisse tenter par P Apple HQS ou avez-vous prefere conserver votre Apple // ? 

J'aurais pu formuler ces demandes — et beaucoup d'autres — sous forme de questionnaire. Peut- 
etre m'y resoudrai-je plus tard. Pour Pinstant, je prefere susciter des lettres que je lirai, je vous le 
promets, avec une gronde curiosite. J'espere que vous mettrez aussi ce courrier 6 profit pour me 
dire ce que vous pensez du contenu actuel de TREMPLIN MICRO. 

Bon nombre de nos correspondant[e)s — acquereurs dun Apple IIGS— se disent "desorientes" par 
cette machine. D'autres commencent d en utiliser les ressources et ecrivent meme des routines 
interessantes. Nous publierons evidemment les meilleures dans de prochains numeros, mais nous 
tenons a ne pas decevoir les possesseurs d'Apple He et He, et nous continuerons done a donner la 
priorite a des programmes fonctionnant sur TOUTES les machines de la gamme APPLE £ D'aucuns 
nous ont reproche d'accorder une place trop importante ou langage machine, mais la majorite de 
nos Lectrices et Lecteurs (du moins celles et ceux qui nous ecrivent) approuve cette demarche et 
TREMPLIN MICRO se felicite d'avoir incite des centaines et des centaines d r Applemaniaques a 
s'interesser 6 la program motion du 6502, puis 6 celle du 65C02. Je souhaite personnellement que 
leur nombre grandisse encore ; manipuler les octets constitue un jeu absolument passionnant et il 
est dommage, quand on a la chance de disposer d un micro aussi convivial que PApple //, de se pri- 
ver de ce plaisir. Bien sur, ce n est pas aussi facile que le pretendent les genies de Pinformatique 
(parfaitement, elle en compte quelques-uns ! ), mais on y parvient avec un peu de perseverance et 
avec Paide de petits bouquins comme "Le 6502 pas a pas", "Clins d'eei! ou 6502" et nos fascicules 
de "Routines". 

A Pintention des Lectrices et Lecteurs disposont a la fois d'un Apple et d'un IBM PC ou compatible, 
nous signalons les ouvrages destines au second, ainsi que certains logiciels tres performants et 
d'un prix abordable (e'est le cas de ceux regulierement lances par Borland). II semble que cette 
entorse au TOUT-APPLE ne provoque pas trop de reactions epidermiques chez les inconditionnels 
de la Pomme. On notera que nous parlons peu du Mac, sauf dans les rubriques "livres" : a vous de 
nous dire ce que vous en pensez. 

TREMPLIN MICRO desire rester une revue particulierement vouee a la programmation, et singulie- 
rement a celle des machines de la longue serie des APPLE //. L'arrivee du GS, ordinateur person- 
nel hybrids, modifie cedes les donnees : est-ce un Apple II ou un petit Mac ? La question restera 
encore posee quand, enfin debride, le GSPLUS nous montrera ce qu'il est possible de faire avec un 
65C816, les outils du Mac... et des logiciels a la hauteur des ambitions de la technique et de la Rom, 

En attendant, programmons le 65C02 et considerons le GS comme un beau joujou, capable d'emu- 
ler le processeur de son predecesseur... ou de jouer les petits Mac, comme un grand ! 

BONNE RENTREE. A VOS CLAVIERS ET TRAITEMENTS DE TEXTES POUR ECRIRE A "TREMPLIN 
MICRO"... ET RENDEZ VOUS ICI, DANS DEUX MOIS ! ouv-hachette. 
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GUY-HACHETTE 



UTILITAIRE 



ProDOS 



Roland )OST 



VOTRE CALCULATRICE 



La calculatrice JR86 n'est pas une calculatrice comme les autres. Elle reside 
dans voire APPLE // et peut etre mise en oeuvre grace a la souris. JR86 utilise la 
notation polonaise inverse et la pile cheres a Hewlett-Packard. En mode deci- 
mal, elle donne acces a toutes les fonctions mathematiques usuelles (les fonc- 
tions trigonometriques sont reduites au sinus, cosinus et tangente ; les angles 
sont d exprimer en degres). En mode hexadecimal et binaire, les calculs se font 
sur des entiers positifs inferieurs ou egaux a 65535 ($FFFF en base 16 ou 
% 1 1 11 1 11 1 1 1 1 1 1 1 1 1 en base 2). De plus JR86 permet d'effectuer des opera- 
tions sur un octet : operations logiques AND, ORA et EOR, decalages et rota- 
tions ASL, LSR, ROR et ROL. 



MISE EN OEUVRE : 

A. Taper le programme BASIC (liste 1) et le 
sauver sous le titre JR86. 

B- Nous ne publions pas le source de la rou- 
tine SP.CALC, beaucoup trop long, mats \\ 
figure sur la disquette Tremplin Micro. Vous 
devrez done taper le code directement, 
comme suit (liste 2) : 
CALL - 151 

6000 : 20 BE DE 20 E3 DF 85 19 etc... 
Sauver par un BSAVE SP.CALC0,A$6000, 
LSI 56. 

C, Taper la liste 3 (table de formes) : 
CALL - 151 

7000 ; 18 00 32 00 42 00 etc... 

Sauver : BSAVE TABCALC0,A$7000,L$1B2. 

D, Entrer enfin la liste 4 (representation gra- 
phique de la calculatrice) : 

CALL -151 

6039: A9 20 85 04 20 63 etc... 

Sauver : BSAVE CALCCOMP.0,A$6039, 

L$C2F. 

CALC.COMP.0 est long a entrer au clavier, 
mais e'est indispensable et le resultat en 
vaut la peine... 

■■••■■■■■■■illaia«niifHaiiiiiiaai*iiifri«iiii(i 
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E. Verifier les programmes (ce qui est tres 
facile quand on passe par la disquette 
SIGNATURE de notre ami Yvan KOENIG). 



UTILI5ER JR86 : 

L'utilisation de lo calculatrice en mode deci- 
mal ne presente aucune difficulty particu- 
liere : entrer un nombre en cliquant les tou- 
ches numeriques, puis cliquer la touche de la 
fonction a executer. Les utilisateurs de calcu- 
latrices HP se retrouveront en terrain connu. 
Pour les autres, rappelons que lo notation 
polonaise inverse permet de se passer de 
parentheses et que, par exemple, le calcul 
de (1 + sin (45)) * 3 s'effectue comme suit : 

45 (Tangle est exprime en degres) 

SIN 

1 

+ 
3 

Resultat = 5.12131894 

Voici maintenant quelques applications plus 
specifiques a la calculatrice JR86 : 

GU Y-HACHETTE 



En plus des operations mathematiques classi- 
ques en decimal, la JR86 permet de travailler en 
base 2 ou 16. et aussi d'effectuer des operations 
sur un octet. En void quelques exemples : 



1° Conversion d une adresse negative en nombre positif : 

Reliquot des temps heroTques, on trouve encore 
dons de nombreux listings des commondes du 
genre PEEK (- 16384) ou CALL - 3100. Pour con- 
verts ces adresses negatives en nombres posi- 
tifs il suffit d'effectuer les operations suivantes : 

Prenons I'exemple de - 16384, adresse de lec- 
ture du clavier 
16384 

CHS » -16384 

HEX » $C000 

DEC » 49152 

Effectivement un PEEK (- 16384) et un PEEK 
(49152) sont equivalents en Applesoft. 



2° Les operations logiques : AND, ORA et EOR 

JR86 permet d'effectuer des operations logi- 
ques sur des nombres inferieurs a 256, done 
codes sur un octet en hexadecimal (8 bits en 
binaire). 

EXEMPLE : f aire un ET logique (AND). 

HEX pour passer en mode hexa 
Ca (192 en decimal) 
ENTER 

7F (127 en decimal) 
AND 

resultat = 40. 



3° Les decaloges (AS L , LSR) et rotations (ROR, ROL) ; 

Le microprocesseur 6502 (ou 65C02) possede 
les 4 instructions suivantes : 
ASL : decale les bits d'un octet vers la gauche. 
Le bit 7 est perdu, un zero rentre dans le bit 0. 
LSR : decale les 8 bits vers la droite : le bit est 
perdu, un zero rentre a gauche dans le bit 7. 
ROR : rotation a droite d'un octet : la retenue 
entre dans le bit 7 et le bit tombe dans la 
retenue. 

ROL : rotation a gauche d'un octet : la retenue 
va dans le bit 0, le bit 7 sortont tombe dans la 
retenue. 



EXEMPLES_: 1 (ENTER) 

ASL : 2 

ASL : 4 

ASL ; 8 

ASL : 16 

etc. 

En effet ASL effectue une multiplication par 2, 
LSR une division par 2. 

Pour les rotations, le resultat depend de la 
valeur de la retenue au depart. Pour mettre la 
retenue a zero (done stmuler Instruction CLC) 
faire comme suit : 

(ENTER) 

LSR : le zero tombe dans la retenue. 

Pour mettre la retenue a un (SEC) on fera : 

1 (ENTER) 

LSR : un 1 tombe dans la retenue. 

On pourra maintenant entrer un nombre, puis 
effectuer l operation ROL ou ROR. 

QUELQUES EXPLICATIONS TECHNIQUES : 

• Le programme JR86 : 

Le programme BASIC effectue le charge- 
ment des differents modules en Assem- 
bleur, gere le deplacement de la souris, 
realise la saisie des nombres et effectue les 
differentes operations mathematiques 
(sauf fes operations logiques). 

• Notons au passage deux routines : 

— Ligne 425 : conversion d un nombre hexa 
de 4 chiffres, stocke en memoire 6 partir 
de I'adresse Al , en nombre decimal. 
Ligne 430 : conversion de binaire en deci- 
mal d'un nombre de 16 bits, stocke en 
memoire d partir de I'adresse A2. 

LE PROGRAMME SP.CALC.O : 

Ce programme en Assembleur 6502 etait neces- 
saire pour permettre un affichage rapide en 
mode haute resolution. II permet de plus la con- 
version rapide de nombres hexadecimaux ou 
binaires en decimal (comparer avec la lenteur 
relative de loperation inverse effectuee en 
BASIC par les lignes 425 ou 430) et locces aux 
operations logiques. Le source de ce programme 
est bien commente et le lecteur pourra s'y repor- 
ter pour plus de details. (Suite page 6) 
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C'est une table de formes renfermant les 
coracteres a afficher en haute resolution (fle- 
che souris, chiffres a 9, lettres A a F r espace, 

% et $). 

CALC.COMP.O : 

L'image graphique de la calculatrice est sto- 
ckee sur disque sous forme condensee. Cette 
image est decompressee apres chargement 
par un petit programme assembleur loge entre 
$6039 et $608A (technique empruntee a la 
revue NIBBLE). 

Le lecteur qui doit saisir les divers programmes 
au clavier economise ainsi I'entree d'environ 4K 
de nombres hexadecimaux supplementaires. 

LA PTOCRAWMATION DE LA 50URIS APPLE : 

Meme apres lecture du manuel de la souris, il 
n'est pas evident de programmer la souris. Void 
les differentes instructions a incorporer dans un 
programme BASIC : 



1° Recherche de la carie souris 



Un programme utilisant la souris doit pouvoir 
detecter la presence de celle-ci. APPLE recom- 
mande de mettre la carte dans le port 4, mais 
ce n'est pas obligatoire, et le programme 
appelant doit pouvoir local iser le port conte- 
nant ('interface. Si l'interface souris est dans le 
port n I'octet $Cn0C contient $20 et I'octet 
$CnFB ~ $D6. II suffit done de tester le contenu 
de ces 2 octets pour n compris entre 1 et 7. Ceci 
est realise en ligne 875. 



2° Activation de la souris 

Avant toute utilisation il faut executer les 
instructions : 

PRINT CHR$ (4)"PR£"SL: ou SL est le numero de port 

de l'interface Souris. 



PRINT CHR$(1) : pour adiver l'interface. 

PRINT CHR$(4)"PR£0" : pour aiguiller les sorties 

vers i'ecran, 



3° Lecture de la souris 



PRINT CHR$(4)"IN£"SL : input provenant de 

la souris 

INPUT""; H.V.S : : saisie de la position 

de la souris 

H = position horizontale : Q - <. h ^ 1 023 
V - position verticale : = < V < 1023 
S = statut du bouton : - 4 < 5^4 



4° Deactivation de la souris 



PRINT CHR$(4)"IN£0" : pour reactiver le cla- 
vier 

PRINT CHR$(4)"PR£"SL : envoi de coracteres 

vers la carte souris 
PRINT CHR$(0) : desactive la souris 

PRINT CHR$(4)"PR£"0 : envoi des coracteres 

vers I'ecran. 

ET POUR CONCIURE V01CI QUELQUES 



A. Les touches A,B r C,D/E et F ne correspon- 
dent pas a des registres, mais aux chiffres 
hexadecimaux 10 a 15. El les ne sont a utili- 
ser qu'en mode hexadecimal. 

B. Les decalages et rotations ne peuvent etre 
effectues que sur des entiers inferieurs ou 
egaux a 255, Sinon affichage du message 
d'erreur (EEEEE clignotant). 

C. Les autres operations en base 16 ou 2 ne 
portent que sur des entiers pouvant etre 
codes sur 2 octets, e'est-a-dire sfrictement 
inferieurs a 65536, 

Si vous ne disposez pas de la souris APPLE, uti- 
lises les fleches pour deplacer le curseur et la 
touche (ENTER) pour valider une commande. 
Bien sur, avec la souris, C'EST MIEUX ! 
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GUY-HACHETTE 
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— 


LISTACE 1 JR86 


2DD 


.-* 4 4/ n 4 

% , 1 1 6 ,8 , 1 


■ 










nrTi ink i 

RETURN 


63B1 












□ TM TDATTCMCXIT CDDCIIDC 
ft tn ***** l Km 1 1 trl tiN 1 tKKtUKb 




100 


REM ***** JR86 : CALCULATRIC 
E SOURIS ***** 






FHR T = t Tfi PPTNT fHR-* 
rUn 1 — I 1 U Oi rn 111 1 unr(» 






105 


REM ***** Roland JOST <C> 






/ "7 • 1 f^nCI ID 1 O*^ ■ PA 1 1 DD C<t 

** 7 ) ] *. bubUb 1 dD : UHLL rK,L* f 








1986 ***** 






70,8,1: NEXT : GOSUB 465: GO 




T 


110 


GOSUB 715: GOTO 275 






TO ?7S 




115 


REM ***** SOUS-PROGRAMMES ** 




C 1 U 


dcm i«iif« HFPI ATFMFIMT^ PIIR^F 








*** 






IIP + + 

|_5 1\ n ft n n ~ 




<• 


120 


REM ***** AFFICHAGE DES NOMB 
RES ***** 




Lr J 

ion 


IF M5 s n THFN ?9fl 

PRINT u% IN£ SL: REM hCTIVE 


■'CM L 


«- 


125 


GOSUB 185: GOSUB 155 






1 ETTIIDC CfillDie 






130 


IF BASE = 16 THEN CALL AH , H 




nnc 


Ken LbL 1 UKh 








%\ CALL HEX ,X : CALL PR,H*,11 




2¥U 


HI — H:vj = v 








6,8,1 : RETURN 




£ y 3 


I F MS = THEN GET R$tR = 




* 


135 


IF BASE - 2 THEN CALL AB,B$ 






HbL M<?i In = H - 28 * CR = 8 








: CALL BIN,X: CALL PR,B*,44, 






.) + 28 * \\R = 21 j OR (R = 3 








8,1: RETURN 






T * \ all ■■ II ■ 4 ^ 1* / i~i ^_ 4 % 

Z) ) iw — v + 13 * cR= 10) - 






140 


A$ = STR$ <X> 






lo * CK — 11^: bUlu J1U 




— 


145 


XH = 140 - 6 * LEN <A*> : CA 




^ft ft 

300 


r k in 1 IT II ii 11 ■ 1 <— - 

INPUT ; H ,U , S 








LL PR,A*,XH,8,1 




'"1 n cr 

305 


H - 28 * INT (H / 25.575> - 






150 


RETURN 






3:^ = 13 * INT <V / 32) 






155 


REM ***** AFFICHAGE DU MODE 




310 


IF H < 53 THEN H = 53 








***** 




315 


IF H > 137 THEN H = 137 






160 


HCOLOR= 0; DRAW 15 AT 38,8: 




320 


TP" 1 1 j j-' / —w~ 1 1 1 — h 111 . 

IF V < 26 THEN V ~ 26 








HCOLOR^ 3 




one 
d2D 


IF V > 182 THEN v = 182 






165 


IF BASE = 16 THEN DRAW 24 A 




J JU 


IF ABS CS> = 2 OR R = 13 TH 








T 38,B: RETURN 






rii 1 pnCM ID ncn 

tN bubUb JdU 






170 


IF BASE = 2 THEN DRAW 23 AT 






1 r U — Li 1 AM Pi 1 1 lit T Li CM O ~7 

i r M — HI MlN LI v — VI 1 HtN 2 7 








38,8: RETURN 






3 


1 




175 


RETURN 






VrkDAI.J 1 >t AT Ul 1 1 1 • vKdali \ J. 
aUKHW lo HJ HI ,V1 : XLIKhW 16 






180 


REM ***** EFFA CEMENT ***** 






AT U I J 

HI n,V 




4 


185 


HCOLOR= 0: CALL PR, V*, 44, 8,1 




JHj 


bUIU 273 








: HCOLOR= 3: RETURN 




JDU 


REM UN A CLIQUE 






190 


REM ***** SAISJE D'UN N OMBRE 




355 


PRINT CHR* C7); 








***** 




360 


Tl = TCHE:TCHE = 4 * <v / 13 






195 


IF BASE < > 2 THEN 215 






- 2.) + ( H - 53) / 28: IF TCH 






200 


IF Q < 2 THEN XX = XX * 2 + 






E = 51 THEN 925 






205 


Q 

GOSUB 185: GOSUB 155: CALL A 




365 


IF TCHE < 28 OR TCHE = 32 OR 
TCHE ~ 36 OR TCHE = 40 OR TC 




- 




8.B*: CALL BIN, XX: CALL PR,B 






HE - 44 OR TCHE = 48 THEN G 




— 




*, 44,8,1 






OSUB 415: GOTO 375 






210 


RETURN 




J/U 


IF Tl < 28 OR Tl = 32 OR Tl 




— 


215 


IF BASE < > 10 THEN 245 






_ no ti .ift rto T) _ >i ^ n 

- oo OR Tl = 40 OR Tl = 44 




- 


220 


IF Q > 9 THEN 235 






K I 1 - 48 THEN GOSUB 395 :T 






225 


XX = UAL (At) 






- — TIT — XS XX = 




- 


230 


GOSUB 185: GOSUB 155 


BDC 


J f D 


Jr iLHt / 2Y I HtN 385 






235 


CALL PR, AS, 140 - 6 * LEN (A 




ion 


UN TCHE + 1 GOTO 450,455,460 








*>,8,i 


CFA3 




,465,470 ,475,480,485,490,495 






240 


RETURN 






, 500 , 505 , 5 1 , 51 5 , 520 , 525 , 530 






245 


XX = XX * 16 + Q 






, 535 . 540 , 545 . 550 , 555 , 560 , 565 




- 


250 


GOSUB 185: GOSUB 155: CALL A 






,570,575,530,585,590.595 








H,H»: CALL HEX, XX: CALL PR,H 






(Suit*? page 8) 
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LISTACE 1 



JR86 



385 ON TCHE - 29 GOTO 600,605,61 
0,615,420 ,625,630 ,635,640 ,64 
5 , 650 , 655 , 660 , 665 , 670 , 675 , 68 
0,685,690,700,705 

390 REM 

395 REM ***** MISE A BLANC DES C 

HAINES ***** 
400 IF BASE = 10 THEN A* = " " ; R 

ETURN 

405 IF BASE = 16 THEN FOR I = 
TO 3: POKE Al + I ,48: NEXT : 
RETURN 

410 IF BASE = 2 THEN FOR 1=0 
TO 15: POKE A2 + 1 ,48: NEXT 
: RETURN 

415 REM ***** EVALUATION DE X ** 
*** 

420 IF 8ASE = 10 THEN X = UAL < 

At): RETURN 
425 IF BASE = 16 THEN X = 0: FOR 

L = TO 3:Z = PEEK (Al + L 

) :Z = Z - 48 

< 58) - 55 * 

71) :ZZ<L) = 

= TO 3:X = 

■ o - n 



* (2 > 47 AND Z 
(2 > 64 AND Z < 

2: NEXT : FOR I 
X + 2Z<I) * (16 

NEXT : RETURN 



430 



IF BASE = 2 THEN X = 0: FOR 
L = TO 15:2 = PEEK (A2 + 
L) :Z = 2 - 48 * <2 > 47 AND 
Z < 50) :ZZ(L) - Z: NEXT i FO 
R 1 = TO 15:X = X + ZZCI) 
* ( 2 * < 15 - I ) > I NEXT : RET 
URN 

435 REM ADDITION A LA PILE 
440 T = 2 : Z = Y:Y = X: RETURN 
445 REM ***** OPERATIONS ***** 
450 BASE =16: GOTO 120 
455 BASE = 10s GOTO 120 
460 BASE = 2: GOTO 120 



465 X = : 
RETURN 
470 X 
475 X 
480 X 



GOSUB 395: GOSUB 185: 



= INT (X) : GOTO 120 
= ABS <X> : GOTO 120 
= SQR <X>: GOTO 120 
485 X = X * X: GOTO 120 
490 X = LOG (X) / LOG (10): GO 
TO 120 

495 X = LOG (X) : GOTO 120 
500 X - EXP CX) : GOTO 120 
505 X = Y * X: GOTO 120 
510 X = SIN (X * PI / 180)! GOT 
120 



35FA 



1621 



C73! 



3B3F 



oa; 



BACA 
0CC4 
4995 

8B56 
E71C 
D01D 



515 X = COS (X * PI / 180): GOT 
120 

520 X = TAN (X * PI / 180): GOT 
120 

525 X = ATN (X * PI / 180): GOT 
120 

530 T = Z:Z = Y:Y = X:X = PI: GO 

TO 120 
535 X = - X: GOTO 120 
540 WW = X;X = Y:Y = Z:Z = T:T = 

WW: GOTO 120 
545 WW ■ TsT = Z:Z = Y:Y = X:X = 

WW: GOTO 120 
550 POKE 6,X: CALL LS:X = PEEK 

(6) : GOTO 120 
555 X = 3 /X: GOTO 120 
560 WW =- X:X = YsY = WW: GOTO 12 



565 : RETURN 

570 POKE 6,X: CALL AS:X = PEEK 

<6> : GOTO 120 
575 POKE 6,X: POKE 7,Y: CALL AN: 

X = PEEK C6): GOTO 120 
580 POKE 6,Xs POKE 7,Y: CALL EO: 

X = PEEK <6): GOTO 120 
585 POKE 6,X: POKE 7,Y: CALL RA: 

X - PEEK (6) : GOTO 120 
590 POKE 6,X: CALL RL:X = PEEK 

(6) : GOTO 120 
595 Q = 13: GOTO J 90 
600 Q - 14: GOTO 190 
605 Q = 15: GOTO 190 
610 POKE 6,X: CALL RR:X = PEEK 

C6) : GOTO 120 
615 = 10: GOTO 190 
620 = 11 : GOTO 190 
625 Q = 12i GOTO 190 
630 X = Y - X:Y = 2:Z = T: GOTO 

120 

635 A* = A* + "7" ;Q = 7: GOTO 19 


640 At = At * 'B" :Q = 8: GOTO 19 


645 At = At + U 9":Q = 9: GOTO 19 


650 X = Y + X:Y = Z :Z = T: GOTO 
120 

655 A* ■ A* + "4" :Q = 4: GOTO 19 



66Q At = At + "S" :G = 5: GOTO 19 


665 At = A* + "6":Q = 6; GOTO 19 


670 X » Y * X:Y = 2:2 = T: GOTO 



C9EE 



>69 



6F1B 
F8F4 

3E1A 
63EB 



9CBA 

F3BF 

5FBE 

4C1A 

4E05 
4B06 

4320 
5901 
9102 
9B03 

EC8F 



77F0 
EFF2 

68E8 
15EA 
28EC 



8 



GUY-HACHETTE 





120 




E790 


830 


PRINT L>*"BLOADTABCALC.O ,A*70 




475 


A$ = A$ + 1 


1" :Q = 1 : GOTO 19 






00": POKE 232,0: POKE 233,11 















2 


8999 


680 


A$ = A$ + * 


2" :Q = 2: GOTO 19 




835 


PRINT D*"BLOAD SP.CALC.0" 


Art2A 









53E4 


840 


CALL AH,H$:A1 = PEEK (2505 




6 8 5 


A$ = A* + " 


3" sQ = 3: GOTO 19 






+ 254 * PEEK (251) 











07E6 


845 


CALL AB,B$:A2 = PEEK (235) 




690 


X = Y / X: 


GOTO 120 


C71C 




+ 256 * PEEK <236) 




495 


X = Y / X:Y 


= Z:Z = T: GOTO 




850 


GOSUB 185 






120 




3091 


855 


S = 4 




700 


A$ = A* + 1 


0" :Q = 0: GOTO 19 




860 


H = 53:V = 26: XDRAW 16 AT H 











E8E0 




,V:H1 = H:VI = g 




705 


At = A$ + " 


: GOTO 190 




865 


REM ***** RECHERCHE DE LA CA 




710 


REM ***** INITIALISATION *** 






RTE SOURIS 






** 






870 


REM :$CN0C = 32 ET $CNFB = 2 




715 


DIM Z2<14) 




S1F2 




14 C SOFT SOURIS- 




720 


D$ - CHR$ 


(4) 


B3A4 


875 


FOR I = 1 TO 7: IF PEEK (49 




725 


E$ = " EEEEEE" 


A81B 




164 * I * 256) = 32 AND PEE 




730 


H* - "123 5" 




054v 




K (49403 + I * 256) THEN SL 




735 


B* = "00010 


00111001101" 






=1:1=7: NEXT : GOTO 890 




740 






7F8E 


880 


NEXT I 




745 


BASE = 10 




034C 


385 


PRINT ™PAS DE SOUR] S . UTILI 




750 


AH = 24576: 


REM recherche ad 






SER LES TOUCHES FLECHES DU C 




755 


resse de H* 








LAVIER " :MS = 0: RETURN 


4E8C 


AB = 24603: 


REM recherche ad 




890 


PRINT " INTERFACE SOURIS EN S 




resse de B$ 








LOT "SL:MS = 1 


6B43 


760 


AN = 24630: 


REM AND 




895 


RETURN 


63B1 


745 


EO = 24637 j 


REM EOR 


E8oA 


900 


REM ***** ACTIVATION SOURIS 




770 


RA = 24644: 


REM ORA 


BE67 




***** 




-l -l !T 

775 


AS = 24651 J 


REM ASL 


A844 


905 


IF MS = THEN RETURN 




780 


LS = 24454: 


REM LSR 


4174 


910 


PRINT D*"PR£"SL{ PRINT CHRS 




/oj 


RL ^ 24473: 


REM ROL 


B774 




(1) : REM ACTIVE LA SOURIS 


4027 


790 


RR " 24681 : 


REM ROR 




935 


PRINT D* n PR£0" : REM AFFICHAG 




795 


BIN = 24689 


: REM conversion 






E EC RAN 


3A5B 




d£c imal -b i na i re . 


30B6 


920 


RETURN 


63B1 


800 


HEX = 24737: REM conversion 




925 


REM ***** DESACTIV/ATI ON SOUR 






decimal-hexadecimal 


CEBr 




IS ET FIN ***** 
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PR = 24771 : 


REM ecr i ture HGR 




930 


PRINT 


75BA 








4377 


935 


PRINT DVIN£Q H : REM ACCEPTE 




810 


PI = 3.14159 


B2CE 




INPUT DU CLAVIER 




915 


SCALE= 1: ROT= 0: HCOL0R= 3 


B2CB 


940 


PRINT D*"PR£"SL: PRINT CHR* 




320 


ONERR GOTO 


260 


75E8 




<0): REM DESACTIVE LA SOURIS 




825 


GOSUB 865: 


GOSUB 900: HGR : 




945 


PRINT DVPRfO" : REM EC RAN 


3A5B 




POKE - 16302,0: PRINT D*"BRU 




950 


TEXT 


1389 




N CALC.COMP 


.0" 


297A 


955 


END 


0180 
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GUY-HACHETTE 




TRES SIMPLE ! , . 



MAIS ?A SE COMPLIQUE... 

Je dois dire que $q se passe plutot bien, a part quelques menaces de mort de la part de per- 
sonnes que je croyais mes amis et un autodafe de TREMPLIN MICRO dans les universites, le 
dernier article de " C tres simple" a ete si bien accueilli que je vous entraine une fois de 
plus sur les chemins etroits et caillouteux de la connaissance pure. 

Les variables que nous avons rencontrees jusqu'a present etaient des objets elementaires 
et isoles, or le plus inculte des Basicois de basse souche vous dira que pour travailler effica- 
cement il a besoin de regrouper de temps en temps ces variables discretes sous forme de 
listes ou de matrices qu'il va nommer "TABLEAU" et declarer celles-ci par Pinstruction DIM. 

Le meme sous-Basicois aimerait bien pouvoir organiser ses donnees d'une maniere un peu 
plus fine que ne le permet son langage prefere : par exemple regrouper sous une meme 
variable, un nom, un prenom, une adresse, un age, autrement dit des objets qui, bien 
qu'ayant un lien commun sont de TYPES differents ou encore creer une variable qui puisse 
contenir a differents moments des objets de types et de tail les differents. 

Mais avec Basic, comme le dit la publicite SNCF, ce n'est pas possible... 

ALLELUIA ! le langage C peut le faire, et bien d'autres choses encore, allez, je suis gentil, 
commencxms par les choses simples. 



LES TABLEAUX 



Pas de malaise, dans son aspect exlerieur, rien 
ne ressemble plus a un tableau en langage C 
qu'un tableau en BASIC. Un tableau est defini 
en precisant entre crochets (pour I'APPLE fran* 
?ais entre °§) le nombre total d'elements qu'il 
doit pouvoir contenir. 

Par exemple ; int liste°40§; 

definit un tableau dont I'identificateur (le 
nom) est liste et compose de 40 objets 
entiers consecutifs nommes : 

liste°0§, liste 1§ Iiste°39§ 

Remarquez que le premier element du tableau 
est d'indice 0, le dernier element est done 
d'indice NOMBRE D'ELEMENTS -1 . 



Ecrire liste°40§ = 10 par exemple conduirait a 
des catastrophes epouvantables... j'aime 
mieux ne pas y penser. 

C manipule des tableaux de n importe quel 
type (y compris des tableaux de tableaux) avec 
une rare elegance. En effet, la notion de 
tableau en C est intimement liee a celle de 
pointeur (voir le numero precedent). L'identifi- 
cateur de tableau (liste dans I'exemple ci- 
dessus) est en fait un pointeur vers le premier 
element du tableau. 

Je commence a voir de la fumee qui sort par 
les oreilles de quefques-uns et quelques- 
unes... Peut-etre ne suis-je pas tres clair ? 

OK je m'explique. (suitepage 14) 



TREMPLIN MICRO 
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Lorsque vous declarez INT TRUC°2§ 
vous donnez a TRUC la valeur de I'adresse 
memoire ou votre compilateur a prevu de pla- 
cer un tableau de deux entiers consecufifs. 
Vous pourrez done utiliser : 

— soit la syntaxe 'TABLEAU" 

— soit la syntaxe "POINTEUR" 

et ecrire avec autant de bonheur : 
TRUC°0§ = 4; ou *TRUC = 4; 
ou encore 

TRUC°3§ = 10 equivalent a *(TRUC+3) = 10 

Les debutants en C utilisent le plus souvent la 
syntaxe "TABLEAU" qu'ils abandonnent progres- 
sivement au profit de (a seule syntaxe "POIN- 
TEUR ". Leurs programmes deviennent alors tres 
beaux, tres rapides et totalement illisibles. 

Un avantage des tableaux C sur les tableaux 
"BASIC e'est qu'ils peuvent etre initialises tres 
facilement au moment de leur declaration. 
Alors qu en Basic on utilise des ruses pas possi- 
bles a base de DATA READ et autres joyeuse- 
tes en forme diterations, il suffit en C de 
faire suivre la declaration de tableau par un 
bloc contenant les valeurs d'initialisation pour 
faire tout le travail ; 

float valeurs°3§ e2 J18,3.14,9e; 

declare un tableau de trois reels et initialise 
leurs valeurs respectives a : 

valeur°0§ = 2.718, valeur°l§ = 3,14, valeur°2§ = 9 

de meme : 

charchame°10§ = "TOTO"; 

declare un tableau de caracteres de 10 ele- 
ments capable sans souffrance de recevoir la 
chatne de caracteres "TOTO". 

chame°0§ =T r ehaine°l§ = '0' etc... 

Nous y revfendrons puisque e'est la facon 
dont C gere les chaines de caracteres. 



Histoiro de vous dercuMer les doigts, void un 
petit programme inspire de ma course d'ordi- 
naieurs du dernier numero : 

Afficher les nombres premiers entre 2 et 1000. 
Je rappelle aux oublieux qu'un nombre pre- 
mier est un nombre qui n'est divisible que par 1 
ou par lui-meme. 

L'algorithme choisi est celui du crible d'Era- 
thostene vieux de plus de 2000 ans et remis au 
gout du jour par hnformatique familial©. 
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On construit un tableau dont la valeur de cha- 
que element est soit 1 , soit selon que I'indice 
est premier ou non. 

Remarquez que le tableau "crible" dont I'indice 
sera au maximum 1000 doit etre declare de 
1001. 

/* - ERATOTOS V 

intcrible°1001§; /*Ie lieu du crible I! IV 

mainQ 
e 

int i r k; /*compteurs d'iteration*/ 

./* Assignons la valeur 1 a tous les elements du 
tableau*/ 

for(i = 2; i <= 1 000;i + + ) crible°i§ = 1 ; 

/* 

Parcourons le tableau de 2 a 1000 en effec- 
tuant la tache suivante : si Pelement d'indice i 
est de valeur 1 e'est que i est premier, done on 
I'eerit et on elimine tous ses multiples en attri- 
buant la valeur aux elements du tableau 
d'indices multiples de i 
*/ 

for (i = 2;i<=1000;i++) 
e 

if (crible°i§)/*si = l : nombre pre- 
mier*/ 

e 

printf("%dcn*\i):/* On I'eerit*/ 
/*On elimine tous ses multiples*/ 
for (k = i + i;k<r=1000;k = k + i) 
crible°k§ =0; 
e 

e 



e 

Voila, e.a ne sert pas a grand chose, mais 
qu'est-ce que e'est beau ! Les plus courageux 
pourront s'amuser a modifier le programme en 
syntaxe "pointeur", les plus laborieux cherehe- 
ront 6 I' ecrire en Basic ou en Pascal, les plus 
impatients se rallieront a mon panache blanc 
afin qu'il les guide dans le dedale des abomi- 
nables structures. (suite page !4) 



GUY-HACHETTE 



LES STRUCTURES 



Les tableaux, cest bien mais ce n'est pas tout 
dans la vie. II peut arriver que vous deviez 
representer un objet composite constitue de 
grandeurs de me me type ou de types diffe- 
rents : par exemple une date composee de 
trois entiers (le jour, le mois, I'annee) ou 
encore le nom des mois de I'annee (chafne) 
associes a un nombre de jours (entier). 

C permet de construire de tels agregats a 
I'aide de lo declaration STRUCT (structure) ; 

struct date e 
int jour; 
int mois; 
intannee; 

&; 

Les Pascal iens reconnaftront sans peine un 
type compose qui leur est cher : le type 
RECORD ou article. 

Les Basicois ne reconnaitront rien mais cest 
bien fait pour eux. 

Comme je les aime bien, je vais tout de meme 
preciser pour ces desherites la triste verite sui- 
vante ; ce que vous venez de fabriquer labo- 
rieusement n'est pas une variable mais un 
TYPE d'objet que vous utiliserez ensuite pour 
declarer une variable eventuellement 
initio I i see. 

Par exempie : 

struct date anniversaire = el 0.1 1.1987e; 

date est un TYPE de structure, anniversaire (en 

fait le mien, a bon entendeur...) est une 
VARIABLE de type date. 

On peut egalement declarer directement une 
variable structure en faisant suivre une decla- 
ration de type structure par un nom de varia- 
ble, c'est 6 mon avis moins clair quoique plus 
rapide ainsi ; 

struct e 

int jour; 
int mois; 
int annee; 

e anniversaire = el8,l 1 , 1987e; 

est equivalent du point de vue fonctionnement 
a la declaration "declaration de type 4- decla- 
ration de variable" vue precedemment. 



Pour avoir acces a un element d'une structure, 
nous devons utiliser Toperateur "." (point). 

anniversaire. jour 

designe l element jour de la structure anniversaire. 

Vous Iave2 surement dejci compris, le pied, 
c'est le tableau de structures : il combine 
I'acces facile a un element par un indice 
(tableaux) et la clarte descriptive des 
structures : 

struct date datesimportantes°2§ 

e 

10,10,1515, 
14,7,1789, 
10,11,1987 
e 

declare un tableau de 3 structures ou, par 
exemple, datesimportantes°0§. annee est egal 
a 1515. 

Ceci n est pas horriblement complexe. Malheu- 
reusement, le pointeur fou a egalement frappe 
les structures et il est tres courant de declarer 
un pointeur vers une structure : 

si on declare : 

struct date *p; 
p = &onniversaire; 

on disposera des syntaxes : 

(*p).jour ou encore p -> jour equivalentes d 
date.jour 

Pour 1'instant, tout ceci doit vous laisser un peu 
froids, mais n'oubliez pas que C est avant 
tout un outil de manipulation de pointeurs : 
en C quand on peut creer un pointeur vers 
quelque chose, on est sauve... 

Essayei pour vous defouler le petit exemple ci-dessous : 
struct horn me 

char nom °15§; 
char prenom °15§; 
int age; 

e; 

struct homme personne e "TOTO","JEAN ",18e; 
struct homme *p; 



main() 
e 



(suite page 16) 
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printf( rr %sgn%sgn%d%d'',homme.nom,homme.prenom J homme.age); 
p = Spersonne; 

printf("%s9n%s?n%d%d" ( (*p).nom,(*p).pr6nom J (*p).age); 
pr i n tf (" % sen % s?n % d % d" , p -> nom , p -y pre no m , p ->age) ; 
e 



LES UNIONS 



Vu de I'exterieur une union ressemble furieu- 
sement a une structure ; la declaration est tres 
proche. La seule difference apparait dans ie 
mot "union" qui remplace le mot "struc". Mais 
attention, cette ressemblance n'est qu'appa- 
rente : une union est prevue pour contenir 
sequentiellement des objets de types et de tall- 
ies differents, c'est-a-dire qu'a un instant 
donne UN SEUL PEUT ETRE PRESENT en 
memoire. 

On peut voir une union comme une structure 
dont les differents champs commencent tous 6 
la meme adresse memoire. 
union e 

int i; 
char c; 
long I; 

e (nonunion; 

La declaration ci-dessus permet de creer une 
variable nominee monunion qui pourra rece- 
voir a un moment donne soit un entier t soit un 
caractere, soit un reel. 

monunion,i = 255; 
monunion.c = 'c J ; 
monunion. I: =3.1416; 



Ces trois lignes pourraient etre une assigna- 
tion valable, mais si vous les ecrivez dans un 
programme, seule monuionJ sera significative 
puisquelle aura "ecrase" monunion.c qui aura 
elle-meme ecrase monunion. i. 

Le type UNION permet de construire des struc- 
tures d champ variable semblables au CASE du 
RECORD Pascal avec plus de souplesse et plus 
d'efficacite mais $a commence a devenir 
difficile... 

Le compilateur APPLE reconnatt un autre type : 
le type ENUM ou enumeration derive directe- 
ment du type enumeration de PASCAL. 

Son interet principal est d'ailleurs de permettre 
une traduction aisee de PASCAL en C . On 
peut declarer des types du genre : 

enum Boissons eCocaCola,Perrier,Orangina, 
SevenUpe; 

['utilisation de ce type rend les programmes 
intransportables sur LB.M. ou VAX. Je ne vous 
parlerai done pas aujourd'hui de cette 
horreur... 



REMARQUES, MESSAGES, NOTES, EXCUSES, REGRETS, E5POIR5 



1° La prochaine fois, C sera vraiment tres 
simple. 

2° Pour aujourd'hui, pardonnez-moi vos maux 
de tete, mais il fallait en passer par la. 

3° La securite sociale ne remboursant pas 
I'aspirine, je ne me sens pas implique dans 
son deficit. 



4° Les societes CocaCola, Perrier, Orangina, 
etc. peuvent foire parvenir leurs cheques 
au journal qui transmettra. 

5° Mon anniversaire est bien le 1 Novembre. 

6° Abientot... cioude aubry 
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SURLES TABLES DE FORMES (Shapes) 



Yvan KOENIG 



A plusieurs reprises, Tremplin Micro a publie des fables de formes, mais sans en rappeler 
la structure. Je vais essayer de combler celte lacune. Rappelons qu'une forme est un 
ensemble code de vecteurs de deplacement : 

— certains dits actifs parce qu'ils affichent un point lumineux a leur position de depart, 

— d'autres, passifs, n'affichent rien. 



II existe 8 vecteurs different* 



PASSIFS 

deplacement vers le haut 
deplacement vers la droite 
deplacement vers le bas 
deplacement vers la gauche 



000 
Q 1 

a i a 

1 1 



Soit a definir, par exemple, le caractere qui me 
serf parfois de signature, a savoir ; 

* . . * . . * Nous aliens balayer ce carac- 
* * * tere de deux facons, afin de 
montrer qu'il n'y a pas une 
solution unique et surtout, de 
mettre en evidence I'tnci- 
dence du mode retenu lorsque 
Ton emploie la possibility 
offerte par APPLESOFT pour 
dessiner une forme en diffe- 
rentes failles grace d SCALE. 



# * * 



* * 



Balayoge 1 




Baloyage 2 



■4 — < — 4— v 



° V* x 



Ce qui se traduit apres codage par ; 



G0 010 1 a 1 $15 

0G a i o i a i $15 

00 100 101 $25 



01 



11 



001 
001 
010 



101 $4D 
101 $4D 
101 SD5 



ACTIFS 

deplacement vers le haut 



lacement vers la droite 
deplacement vers le bas 
deplacement vers la gauche 



1 00 
1 01 
1 1 
1 1 1 



00 


1 1 


00 


$30 


11 


01 1 


01 1 


$DB 


00 


1 1 


1 1 


$36 


00 


01 1 


01 1 


SIB 


00 


1 1 


1 1 


$36 


00 


001 


101 


$0D 


00 


1 1 


1 10 


$36 


00 


001 


101 


$0D 


01 


001 


001 


$49 


11 


01 


101 


$D5 


00 


1 1 1 


000 


$38 


11 


01 1 


01 1 


SDB 


00 


1 1 1 


000 


$38 


00 


1 01 


101 


$2D 


00 


1 1 1 


000 


$38 


11 


010 


101 


$D5 


00 


001 


000 


$08 


10 


1 01 


01 1 


SAB 


00 


001 


000 


$08 


00 


1 01 


01 1 


S2B 


00 


001 


000 


$08 


11 


010 


101 


$D5 


10 


I 1 1 


000 


SB8 


01 


1 01 


01 1 


$6B 


00 


01 


1 1 1 


$17 


1 1 


01 


101 


$D5 


00 


000 


1 1 1 


$07 


00 


1 1 


01 1 


SIB 


terminateur 


$00 


01 


001 


101 


S4D 










00 


000 


1 01 


$05 










terminateur 


$00 



Vous avez sans doute remarque que choque 
octet est divise en 3 groupes. Les deux de droite, 
comportant 3 bits, peuvent abriter n'importe 
quel type de vecteur. Le groupe de gauche, ne 
comportant que 2 bits, est d'usage reduit (cer- 
tains editeurs de formes ne I'utilisent jamais). 
On ne peut en fait y ranger que trois vecteurs, 
tous de type passif : vers la droite, le bas ou lo 
gauche. 

Une definition de forme se terminant par un 00, 
il n'est pas possible de coder deux deplacements 
passifs consecutifs vers le haut, (suite page )8) 
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De meme, si les 5 bits de gauche sont d 0, aucun 
deplaeement n est genere, C'est pour cela que, 
dans le baJayage 1 , le vecteur central du 3* octet 
a ete code actif, ce qui ne paraissait pas indis- 
pensable au premier abord. 

Maintenant que nous avons deux definitions de 
formes, il nous faut les tnserer dons une TABLE 
DE FORMES exploitable par Applesoft. 
Une telle table est constitute par une succession 
de definitions de formes, terminees chacune par 
un octet nul. En tete de cet ensemble, on place 



un repertoir des formes qui permet d'acceder 
aux formes elles-memes. 

Le premier octet de ce repertoire contient le 
nombre de formes de la table (1 a 255), le second 
octet inemploye est mis a zero, Ensuite, on place 
des pointeurs de deux octets contenant le deca- 
lage (offset) entre I'octet Q de la table et le pre- 
mier octet de la forme correspondante. II est 
prudent de prevoir quelques pointeurs vides qui 
permettront d'ajouter aisement quelques formes 
complementaires en case de besoin. 



Avec les exemples ci-dessus la table va avoir la composition suivante : 



mo 


























nbre formes 


02 90 
























pointeurl 


as QQ 
























pointeur2 


1A 00 
























pointeur vide 


QQ QQ 
























forme! 


15 15 


25 


30 


36 36 


36 


49 


38 


38 


38 


08 08 


(J8 B8 17 Q7 


aa 


forme2 


4D 4D 


05 


DB 


IB Q'D 


0D 


D5 


DB 


2D 


D5 


AB 2B 


D5 6B D5 IB 


4D as aa 


BSAVE YK2 r A$3O0 P L$2E 

























Le petit programme Basic joint permet d afficher 
les deux formes dans trois failles, ce qui montre 
que si en taille 1 Paspect est le meme, tout 
change avec scale 2 ou 3. 

Je mets aussi en evidence ['utilisation des swit- 
ches, peu connus, qui permettent de basculer 
MONOCHROME « » COULEUR. 



REFERENCES 

Manuel de reference APPLESOFT A2LOQ8F 

Monu*l de liitilisateur APPLE II Poole.McNtff.Cook Editions Radio 

Creation de tables de formes P. Compere POM'j 4 

fusion de tables de formes 0. Sureau POM'i 9 

Un edlteur de formes T. le Tollec POM'i 12 

Documentation de tablet de forme! E. Ringot POM'j 13 

DESIGNER /ILLUSTRATOR ... deux programmes remarquables edfles 

pni NIBBLE au ptix deS29.95 



10 

20 
30 
40 
50 
60 
65 
70 
80 
90 
100 
110 
120 
200 



PRINT CHR${4) "BLOAD YK2": POKE 232,0: POKE 233,3 

TEXT : PRINT CHR$(21): HCOLOR = 3: ROT = 

HGR 

SCALE = 1; DRAW 1 AT 89.10: DRAW 2 AT 189,10 
SCALE = 2: DRAW 1 AT 86,30: DRAW 2 AT 186,30 
SCALE = 3: DRAW 1 AT 83,60: DRAW 2 AT 183,60 
SCALE = 4: DRAW 1 AT 80,100; DRAW 2 AT 180,100 
FOR J = 1 TO 10 

POKE 49246,0: GOSUB 200: REM monochrome 
POKE 49247,0: GOSUB 200: REM couleur 
NEXT 

POKE 49246,0: REM monochrome 
END 

FOR I = 1 TO 1000: NEXT : RETURN ■ 



IB GUY-HACHETTE 



INITIATION 



ARCOS 



DATA-SUITE 



Void un moyen simple et rapide pour afficher les donnees en DATA sans pas- 
ser par une boucle en Basic. Attention ! comme il s'agit reellement d'une rou- 
tine elementaire, il faut absolument initialiser le systeme a partir du Basic par 
une instruction similaire a celle de la ligne 20 (READ R$). La premiere donnee 
est bidon (ici : 0). 



10 TEXT : HOME : PRINT CHR$ (4) "BLOAD DS.LM" 

20 READ RS 

30 CALL 768: PRINT 

40 VTAB 22: PRINT 'PRESSER (M) POUR MENU DE DISQUETTE ";: GET R$: PRINT 
50 IF R$ = "M" OR R$ = "m" THEN PRINT CHR$ (4) "RUN MENU" 
60 HOME : END 

70 DATA 0, JANVIER, FEVRIER, MARS, AVRIL,MAIJUINJUILLET ( AOUT ( SEPTEMBRE, 
OCTOBRE,NOVEMBRE,DECEMBRE 



300 


AO 


00 




LDY 


£$00 


302 


E6 


7F 




INC 


$7F 


304 


DO 


02 




BNE 


S0308 


306 








INC 


$80 


308 




7F 




LDA 


($7F) r Y 


30A 




10 




BEQ 


$031 C 


30C 


C9 


2C 




CMP 


£$2C 


30 E 


DO 


05 




BNE 


$0315 


310 




62 


FC 


JSR 


$FC62 


313 




EB 




BRA 


$0300 


315 




80 




ORA 


£$80 


317 




ED 


FD 


JSR 


$FDED 


31 A 




E4 




BRA 


$0300 


31 C 








RTS 





Y d pour adressage indirect. 

Apres READ R$, $7F-80 contient I'adresse ou 
se trouve la virgule suivant le 0. 

Lecture du caractere. 

Si c'est un zero, lecture epuisee. 

Si c'est une virgule, 

retour chariot. Sinon on affiche le coractere. 
Retour. 

Bit 7 d 1 . Affichage et en place pour une 
autre lecture. 

Retour au Basic. 



Vous avez bien sOr remarque que ce micro-programme n'autorise pas I'offichage de plu- 
sieurs lignes de DATA* La raison est evidente : on se contente ici de court-circuiter le Basic. 
Vous en aurez la preuve en ajoutant une ligne 35 : 35 READ R$ : PRINT R$ 

Que croyez-vous qu elle affichera ? ■ 

T REM PL IN MICRO 19 



INITIATION \jmMMJ2MM 



ARGOS 



DATA-SI 



Meme principe que DATA.SUfTE, mais le pro- 
gramme affiche ladresse decimale de chaque 
donnee et traite toutes les lignes de DATA ! 



10 TEXT : HOME : PRINT CHR$ (4)"BL0AD DS.LM1" 
20 DATA PREMIERE LIGNE 
30 CALL 768: PRINT 

40 VTAB 22: PRINT "PRESSER (M) POUR MENU DE 
DISQUETTE ";: GET R$: PRINT 

50 IF R$ = "M" OR R$ = "m" THEN PRINT CHR$ 
(4)"RUNMENU" 

60 HOME: END 



70 DATA JANVIER,FEVRIER,MAR5,AVRILMAI,JUIN, 
JUlLLET,AOUT,SEPTEMBRE,OCT0BRE f NQVEMBRE, 
DECEMBRE 

75 DATA PREMIERE SUITE.LIGNE 75 
80 DATA DEUXIEME SUITE.LIGNE 80 

85 DATA TROISIEME SUITE, LIGNE 85 

90 PRINT : REM LIGNE BIDON 

95 DATA ET ON TERMINE LIGNE 95 



300 




67 


IDA 


$67 


32E 






BRA 


$0319 


302 




7F 


STA 


$7F 


330 






PHA 




304 




68 


LDA 


$68 


331 






LDA 


£$8D 


306 






STA 


$80 


333 




ED FD 


JSR 


$FDED 


308 






BRA 


$033B 


336 


68 




PLA 




30A 






LDY 


$80 


337 




2C 


CMP 


£$2C 


30C 






LDX 


$7F 


339 






BEQ 


$030 A 


30 E 






INX 




33B 






INC 


$7F 


30 F 






BNE 


$0312 


33D 






BNE 


$0341 


311 






INY 




33F 






INC 


$80 


312 






TYA 




341 






LDY 


£$00 


313 






JSR 


SED24 


343 






LDA 


($7F),Y 


316 






JSR 


$F948 


345 






BEQ 


$034 D 


319 


f AO 


00 


LDY 


£$00 


347 






CMP 


£$83 


31B 


E6 




INC 


$7F 


349 






BEQ 


$030A 


31D 






BNE 


$0321 


34B 






BNE 


$033B 


31F 






INC 


$80 


34D 






LDA 


$80 


321 






LDA 


($7F) r Y 


34 F 


C5 


6A 


CMP 


$6A 


323 


F0 


OB 


BEQ 


$0330 


351 






BCC 


S033B 


325 


C 9 




CMP 


£$2C 


353 






LDA 


$7F 


327 






BEQ 


$0330 


355 






CMP 


$69 


329 






ORA 


£$80 


357 






BCC 


S033B 


32B 




ED FD 


JSR 


$FDED 


359 






RTS 


■ 

ma mm 


20 
















GUY-HACHETTE 



Marcel COTTINI 

Les vecteurs d'interruptions 

sous ProDOS 



LES INTERRUPTIONS POSSIBLES 

NMI Non Maskable Interrupt : ce sont les 
interruptions non masquables. 

RESET Monitor Interrupt : ce type d'interruption 
renvoie le systeme dans le Monitor. Elle 
est geree a partir de ladresse $FA62. 

IRQ Interrupt Request : ce sont les interruptions 
masquables, dont le BReaK fait partie. 

Pour chaque signal d'interruption, il existe une ligne 
particuliere d'acces au processeur : si le signal vehi- 
cule est 6 un niveau bas (0), le processeur recoit une 
demonde d'interruption ; par contre, si le signal est a 
un niveau haut (1 ), rien ne se passe. 

Adresses d'interrup tions : 

$FFFA-$FFFB pour une interruption NMI JMP (SFFFA) 
SFFFC $FFFD pour une interruption RESET JMP (5FFFC) 
SFFFE-SFFFF pour une interruption IRQ JMP ($FFFE) 

Processus d'une interruption type : 

— ^interruption en cours est menee 6 terme ; 

— L'octet de poids fort du compteur ordinal est 
empile — PCH ; 

— L'octet de poids faible du compteur ordinal 
est empile — PCL ; 

— Le contenu du registre d'etat PS est empile ; 

— Le bit 2, inhibition des interruptions, est mis 6 1 ; 

— Execution de l instruction qui se trouve a 
l adresse $FFFE de Ja ROM Monitor, ou saut 
indirect a l adresse contenue dans les octets 
SFFFF-SFFFE. 

NMI INTERRUPT 

ROM Monitor commutes : 

La ROM du Monitor, adresses$FFFA-$FFFF, contient le 
pointeur du vecteur d'appel pour gerer la demande 

TREMPLIN MICRO 



d'interruption adressee aumicroprocesseur. Le pre- 
mier pointeur 16 bits contenu dans $FFFA-$FFFB est 
reserve aux interruptions du type NMI. Pour un Apple 
He ou lie, les adresses SFFFA-SFFFB contiennenl : FB 
03 = S03FB. Lors du boot d'une disquette ProDOS, 
l adresse $G3FB contient l adresse de saut au Monitor. 



Vecteur du NMI : 



03FB- 


AC 


59 


FF 


JMP$FF59 




FF59- 


20 


84 


FE 


JSR $FE84 


SETNORM. Mode norma 


FF5C- 


20 


2F FB 


JSR SFB2F 


INIT. Mode texts 


FF5F- 


20 


93 


FE 


JSR SFE93 


SETVID. Mode PR£0 


FF62- 


20 


89 


FE 


JSR SFE89 


SETKBD. Mode IN£0 


FF65- 


D8 






CLD 




FF66- 


20 


3A 


FF 


JSR SFF3A 


BELL. Sonnette 



Apres Texecution de la routine implantee a partir de 
Todresse SFF59, le systeme effectue un saut dans le 
Monitor, et affiche l asterisque (*) comme prompt. 



Carte Ian gage commutee : 

La copie de l adresse S03FB se trouve dans la carte 
langage, aux odresses SFFFA-SFFFB (FB 03 = $03FB) 
pour etre utilisee par le Mil lorsqu"une interruption 
NMI intervient. Comme la carte langage n est pas pro- 
tegee en lecture lors d une interruption du type NMI, 
IRQ ou RESET, le processeur se branche a $G3FB, puis 
effectue un saut a SFF59 et execute le sous- 
programme. Si le pseudo disque (RAMDisk) est utilise 
avec lo carte auxilioire 64 Ko ou avec un Apple Ifc, 
une interruption NMI plante le systeme et renvoie 
l utilisateur dans le Monitor (Prompt = *), L'instruc- 
tion CALL 976 (3D0G) reconnecte le Basic 5ystem en 
effectuant un demarrage a chaud, tandis que CALL 
39447 appelle la routine Connect qui se trouve a 
I adresse $9A 1 7 . (suite* page 22) 
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RESET INTERRUPT 



ROM 'Monitor commutee : 

Le point d entree de RESET se trouve a I'odresse SFA62. Lo copie de cette adresse se trouve au vecteur $FFFC- 
SFFFD (SFFFO 62 FA) de la ROM Monitor. 



RESET avec une ROM autostart (Apple He) 



r a ft 

FA62 - 


Do 










Annulalion du mode decimal. 


FA63 - 


20 


A 

84 


r r 

Ft 


1 c □ 


[rrn j 

Srto4 


atlNUKAA, Mode normal. 


P A A i 

FA66 


20 


2F 


r n 

FB 


i c n 

JSR 


SFB2F 


INI L Mode texte. 


r a i ft 

FA69 


20 


93 


Ft 


ltd 
JSR 


5FE93 


bblKBU. Mode INiW. 


FA6C - 




89 


r r 

Ft 


IC D 

J 5 R 


ecc oq 
jFtoV 


be 1 V1U. Mode rKfcU. 


pi ;r 

FA6F - 


a rv 

AD 


58 


/"A 

CO 


i rv a 

LDA 


SC058 


Annonciateur 6 1 — Read. 


r ATI 

FA/2 - 


A Pfc 

AD 


C A 

5A 


tf ft 

CO 


i r\ a 

LDA 


JC05A 


Annonciateur a 1 — Write. 


r ate 

FA/5 - 


AO 


ft C 

05 




1 Pi W 

LDY 


£505 


Initialise le registre Y a la valeur £$05. 


FA77 - 


20 


B4 


FB 


irn 

JSR 


SFBB4 


Gestion du curseur — avence 5 positions. 


FA7B - 


a r\ 

AD 


FF 


CF 


LDA 


SCFFF 


CLRROM Desactive les sous-programmes places entre 
















FA7E - 


2C 


10 


CO 


BIT 


SC0 10 


KBDSTRB. Echantitlonnage du clavier. 


FA81 - 


D8 






CLD 






FA82 - 


20 


3A 


FF 


JSR 


$FF3A 


BELL Sonnette. 


FA85 - 


AD 


F3 


03 


LDA 


S03F3 


RESET-Handler. Charge le pointeur HByte. 


rAoo - 


A 






COD 


f CA R 


PP\A/PI 1 P P.u + n 

rrvvVKUr pyre. 


FA8A - 


CD 


F4 


03 


CMP 


S03F4 




FA8D 


DO 


17 




BNE 


SFAA6 


Demarrage a froid. Reboote le systeme. 


FA8F - 


AD 


F2 


03 


LDA 


S03F2 


RESET-Handler. Charge le pointeur LByte. 


FA92 - 


DO 


OF 




BNE 


5FAA3 


Si different de 0, demarrage d chaud. 


FA94 - 


A9 


E0 




LDA 


£$E0 




FA96 


CD 


F3 


03 


CMP 


S03F3 


Est-ce le vecteur Basic ? — $E000. 


FA99 - 


DO 


06 




BNE 


SFAA3 


Non, demarrage a chaud. 


FA9B - 


AO 


03 




LDY 


£$03 


Fixe RESET sur le vecteur Basic a froid. 


FA9D - 


8C 


F2 


03 


STY 


S03F2 


Demarrage en $E003 — Basic d chaud. 


FAAO - 


4C 


00 


E0 


JMP 


SE00G 


Basic a froid — Coldstart. 


FAA3 - 


6C 


F2 


03 


JMP 


(SQ3F2) 


Warmstart. Saut au Handler. 


FAA6 


■id 


60 


FB 


JSR 


SFB60 


Coldstart. Entree du demarrage a froid. 



RESET-Handler. Entry Moniteur (RESET - $FA62) 



FFCB - 


AD 


D7 


FF 


LDA 


SFFD7 


Charge le pointeur HByte, 


FFCE - 


48 






PHA 




et I'empile. 


FFCF 


AD 


D6 


FF 


LDA 


SFFD6 


Charge le pointeur LByte, 


FFD2 - 


48 






PHA 




et I'empile. Adresse de retour 


FFD3 - 


4C 


C8 


FF 


JMP 


$FFC8 


Commute la ROM moniteur. 


FFD6 - 


61 


FA 








Pointeur SFA61 —61 FA — . 



$FA61 — . 



Processus : A I'adresse $FFCB du Monitor se trouve un RTS (code 60), Consequence : le pointeur contenu 
aux adresses $FFD6-$FFD7 sera utilise por le processeur pour effectuer un retour a I'adresse 
$FA62. I'adresse de retour depilee apres une instruction RTS, sera augmentee de I : SFA61 + £$01 = $FA62. 
C'est une corocteristique propre aux microprocesseurs 6502 et 65C02. 
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IRQ INTERRUPT 



Cette interruption n est autorisee par le microprocesseur, que si le bit d'inhibition, bit 2 du registre d'etat PS, 
est a zero. Cette situation est provoquee par 1'instruction CLI du processeur, 



FA40 - 
FA42 - 
FA43 - 
FA44 - 
FA47 - 
FA49 - 



85 45 
68 
OA 
OA 

30 03 
6C FE 



IRQ Interrupt pour un Apple lie 



03 



5TA $45 Sauvegarde de I'aceumulateur. 
PLA Depile le registre d'etat PS. 

ASL Bit 4 positionne a 1. si IRQ est transmis par une instruction 

ASL BReaK — 00 — . 

BMI SFA4C BReaK ovec affichoge des registres. 

JMP (S03FE) Adresse IRQ Handler. 



ProDOS positionne IRQ-Handler d la valeur $BFEB 



03FE - 


E8 








LByte du pointeur IRQ-Handler. 


03FF - 


BF 








HByte du pointeur IRQ-Handler. 


BFEB - 


AD 


8B CO 


LDA 


&CQ8B 


BankSelect. Bank 1 outorisation de lecture 


BFEE - 


AD 


8B CO 


LDA 


$C08B 


+ ecriture. 


BFF1 - 


4C 


3A D) 


JMP 


$01 3A 


IRQ-Handler a partir du MLI, 















IRQ-HANDLER ENTRY (MLI) 






DI3A- 


A5 


45 




LDA 


S45 


Charge la valeur de I'adresse $45 dans 


I'aceumulateur — 














Registre A — . 






D13C - 


8D 


88 


BF 


STA 


SBF88 


INTAREG. Sauvegarde de I'aceumulateur. 




0I3F - 


8E 


89 


BF 


STX 


SBF89 


INTXREG. Sauvegarde de X dans la page globale. 


D142 - 


8C 


8A 


BF 


STY 


SBF8A 


INTYREG. Sauvegarde de Y dans la page glo 


bale. 


DU5 - 


BA 






TSX 




Copie du pointeur de pile dans X. 




D146 - 


8E 


SB 


BF 


STX 


SBF8B 


INTSREG. Sauvegarde du pointeur de pile. 




DU9 - 


68 






PLA 




Depile la valeur du registre d'etat PS. 




D14A- 


HD 


8C 


BF 


STA 


SBF8C 


INTPREG. Sauvegarde du registre d'etat PS. 




DI4D - 


68 






PLA 




Depile I'adresse de retour ; 


LByte. 




DUE - 


8D 


8E 


BF 


STA 


SBF8E 


INTADR. Sauvegarde de I'adresse de retour 


S LByte. 


DI51 - 


68 






PLA 




Depile I'adresse de retour ; 


HByte. 




D152 - 


8D 


8F 


BF 


STA 


SBF8F 


Sauvegarde de I'adresse de retour ; HByte. 




DI55 - 


9A 






TXS 




Positionne le pointeur de pile* 




DI56 - 


AD 


F8 


07 


LDA 


S07F8 


MSLOT. Numero de l interface : HByte. 




DI59 - 


8D 


C4 


D! 


STA 


SD1C4 


Sauvegarde du numero de l interface. 




DISC - 


BA 






TSX 










DI5D - 


30 


09 




BMI 


SD168 


Saut, si le pointeur de pile > £S7F, sinon, 




D15F - 


AO 


OF 




LDY 


£S0F 


initialise le registre Y d la valeur 16, 




DI61 - 


68 






PLA 




et depile 16 valeurs. 






DI62 - 


99 


AF 


FO 


STA 


SFOAF.Y 


Sauvegarde des valeurs depilees. 




D165 - 


88 






DEY 




Decremente Y d'une unite, 






DI66 - 


10 


F9 




BPL 


SD161 


et continue a depiler. 






D168 - 


A2 


FA 




LDX 


£SFA 








D16A- 


B5 


00 




LDA 

mm m mm mm 


$GG,X 


Sauvegarde des valeurs de la page zero, 
mmmmmmmmmmmmmmMmmummmmummmmmmmmmmmmmmmmmmmmnmummm 


(suite page 24) 
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D16C- 9D A5 EF STA $EFA5,X de £$FA a £$FF. 

D16F - E8 INX Incremente la registre X, 

D170 - DO F8 BNE SD16A et continue avec la prochaine valeur. 



INTERRUPTS VECTORS 



D172 - 


AD 


81 


BF 


LDA 


SBF81 


Interrupt 1 : charge HByte de I'adresse de saut, 


D175 - 


F0 


05 




BEQ 


SD17C 


adresse vide, charge le vecteur suivant. 


D177 - 


20 


CE 


Dl 


JSR 


SD1CE 


Vecteur utilise : appel du sous-programme. 


D17A- 


90 


23 




BCC 


SD19F 


Restaure la page zero. 


D17C - 


AD 


83 


BF 


LDA 


SBF83 


Interrupt 2 : charge HByte de I'adresse de saut. 


D17F - 


F0 


05 




BEQ 


SD1B6 


adresse vide, charge le vecteur suivant. 


D1B1 - 


20 


Dl 


Dl 


J5R 


SD1D1 


Vecteur utilise : appel du sous-programme. 


D184 - 


90 


19 




BCC 


SD19F 


Restaure la page zero. 


D186 - 


AD 


85 


BF 


LDA 


SBF85 


Interrupt 3 : charge HByte de I'adresse de saut, 


0189 - 


F0 


05 




BEQ 


$D190 


adresse vide, charge le vecteur suivant. 


D18B - 


20 


D4 


Dl 


JSR 


SD1D4 


Vecteur utilise : appel du sous-programme. 


D18E - 


90 


OF 




BCC 


$D19F 


Restaure la page zero. 


D190 - 


AD 


87 


BF 


LDA 


$BF87 


Interrupt 4 : charge HByte de I'adresse de saut, 


D193 - 


F0 


05 




BEQ 


$D19A 


adresse vide, charge le vecteur suivant. 


D195 - 


20 


D7 


Dl 


JSR 


SD1D7 


Vecteur utilise : appel du sous-programme. 


D198 - 


90 


05 




BCC 


$D19F 


Restaure la page zero. 



ERROR HANDLER 



D19A- A9 01 LDA S£$01 Aucun des pointeurs n'est en place dans la page globale de 

PRODOS, aux adresses $BF80-$BF87. 

Charge I'accumulateur avec la valeur £$01 qui sera utilisee 
comme drapeau — Flag — pour le code d'erreur. 
D19C - 20 OC BF JSR $BF0C SYSTDEATH. Appel de la routine d'erreur : contient normale- 

ment un saut a $D1 E6. 



Restaure la page zero 



D19F - 


A2 


FA 




LDX 


£$FA 


Initialise le registre X comme compteur. 


D1A1 - 


BD 


A5 


EF 


LDA 


SEFA5.X 


Charge les valeurs des adresses indexees. 


D1A4- 


95 


00 




STA 


SQ0,X 


et les sauvegarde dans la page zero. 


D1A6 - 


E8 






INX 




Incremente de 1 le registre X, 


D1A7- 


DO 


F6 




BNE 


SD1A1 


et continue la sauvegarde. 


D1A9- 


AE 


8B 


BF 


LDX 


SBF8B 


INTSREG. Charge le pointeur de pile, 


D1AC- 


30 


OB 




BMI 


SD1D9 


y a-t-il assez de place ? oui 


D1AE - 


AO 


00 




LDY 


£$00 


sinon, empile les valeurs sauvegardees 
au prealable : voir a partir de $D161 . 


D1B0 - 


B9 


AF 


F0 


LDA 


$F0AF,Y 


Charge les valeurs des adresses indexees, 


D1B3 - 


48 






PHA 




et les empile. 


D1B4 - 


C8 






INY 




Incremente de 1 le registre Y, 


D1B5 - 


CO 


10 




CPY 


£$10 


et compare si les 16 valeurs ont ete sauvegardees. 


D1B7 - 


DO 


F7 




BNE 


SD1B0 


Continue d'empiler. 
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D1B9 - 


AC 


8A 


BF 


LDY 


SBF8A 


INTYREG. Charge la valeur du registre Y. 


DlBC - 


At 


ft a 

89 


pi r 

BF 


I r-v \f 

LDX 


ft r rtn 

SBF89 


INTXREG. Charge la valeur du registre X. 


D1BF - 


AD 


FF 


CF 


LDA 


$CFFF 


CLRROAA. Deconnecte les sous-programmes des ROM, entre 
$C800-$CFFF. 


DIC2 - 


AD 


00 


CI 


LDA 


$noo 


REACTIV CARD. Charge le numero du peripherique 


D1C5 - 


AD 


C4 


Dl 


LDA 


$D1C4 


HByte — $D! C4 de I'odresse $D 1 59 — 


D1C8 - 


8D 


F8 


07 


STA 


$07F8 


et restaure MSLOT — $07F8 — . 


D1CB - 


4C 


DO 


BF 


JMP 


SBFDO 


INTEXIT. Sortie de la routine via la "globale page" de PRODOS. 



Appel des sous-programmes, suite a une Interruption : 

Ces sous-programmes sont uniquement sollicites par un "JSR" a partir des adresses SD177 ; SD181 ; SD18B et SD195. 



DICE - 


6C 


80 BF 


JMP 


(SBF80) 


Execution de la routine Interrupt \ 


D1D1 - 


6C 


82 BF 


JMP 


(SBF82) 


Execution de la routine Interrupt 2 


D1D4 - 


6C 


84 BF 


JMP 


($BF84) 


Execution de la routine Interrupt 3 


D1D7 - 


6C 


86 BF 


JMP 


($BF86) 


Execution de la routine Interrupt 4 



SET SY5ERR 



Entree par un JMP venant de I'odresse $BF09. 



D1DA- 


8D OF BF 


STA $BF0F 


Sauvegarde du code d'erreur. 


D1DD- 


68 


PLA 


Depile I'odresse de retour ; LByte 


01 DE - 


68 


PLA 


HByte. 


D1DF - 


AD OF BF 


LDA $BF0F 


Charge le code de lerreur 


D1E2 - 


38 


SEC 


Utilise comme indicateur de l erreur. 


D1E3 - 


60 


RTS 


Retour : normalement a $D078. 



System DEATH Entry 2 i 

L'entree du vecteur $D1E4 est appelee par la page globale de PRODOS, a savoir : REBOOT (SBF03) et SYS DEATH 2 ($BFF6), 
D1E4 - A9 00 LDA £$00 Fixe la valeur £$00 au code d'erreur. 



System DEATH Entry I : 

A I entree de la routine, I'occumulateur contient le code d'erreur rencontre. L'appe! vient de la page 
globale de PRODOS, 6 partir de I'odresse $BFGC 



D1E6 - 


AA 






TAX 




Copie le code d'erreur dans X. 


D1E7 - 


8D 


OC 


CO 


STA 


SC00C 


Deconnecte la carte 80 colonnes — lie et lie. 


D1EA- 


AD 


51 


CO 


LDA 


SC051 


Place le systeme en mode texte, 


D1ED - 


AD 


53 


CO 


LDA 


SC053 


pleine page, 


D1F0 - 


AD 


54 


CO 


LDA 


SC054 


page 1 , 


D1F3 - 


AD 


56 


CO 


LDA 


$C056 


et en basse resolution — LORES. 


D1F6 - 


AO 


27 




LDY 


£$27 


Initialise le registre Y, comme compteur 


D1FB - 


A9 


AO 




LDA 


£$A0 


et charge la valeur du nombre d'espaces. 


D1FA - 


99 


50 


07 


STA 


$0750,Y 


Affiche a I'ecran te texte : INSERT SYSTEM DISK AND RESTART. 


D1FD - 


B9 


DE 


EF 


LDA 


$EFDE,Y 


Charge les caracteres stockes dans la carte langage, 


D200 - 


99 


DO 


07 


STA 


$07D0,Y 


continue I'affichage des caracteres a I'ecran, 


D203 - 


88 






DEY 




decremente d'une unite le compteur Y, 


D204 - 


10 


F2 




BPL 


$D1F8 


et continue I'affichage. 


D206 - 


8A 






TXA 




Recopie le code d'erreur dans A, 


D207 - 


FG 


30 




BEQ 


SD239 


si 00, le code ne sera pas affiche : -ERRxx. 


D209 - 


A9 


AD 




LDA 


£SAD 


Charge le code ASCII de 


D20B - 


8D 


Fl 


07 


STA 


$07F1 


et I'afftche a I'ecran. 


D20E - 


A9 


C5 




LDA 


£SC5 


Charge le code ASCII de "E", (suite page 26) 
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D210 


- 


80 


F2 


07 


STA 


$07F2 


et I'offiche a lecran. 


D213 


- 


A9 


D2 




LDA 


£$D2 


Charge le code ASCII de "R", 


D215 


- 


80 


F3 


07 


STA 


Stf7F3 


et I'affiche deux fois a I'ecran 


D218 


- 


8D 


F4 


07 


STA 


$07F4 


»R 

» -ERR 


021 B 


- 


8A 






TXA 




Code vers t'accumulateur, 


D21C 




4A 






LSR 




et decale les bits, 4 fois vers la droite, 


021 D 


- 


4A 






LSR 




ce qui equivaut a ne gorder que les 4 bits 


021 E 


- 


4A 






LSR 




de poids fort. 


D21F 


- 


4A 






LSR 




0220 


— 


n 


BO 




ORA 


£$B0 


Effectue un OU Inclusif avec £$B0 (176). 


0222 




C9 


BA 




CMP 


£SBA 


et compare si le resultat est superieur a 9. 


D224 


- 


90 


02 




BCC 


SD228 




D226 


- 


69 


06 




ADC 


£$06 


Pour les valeurs superieures a 9 — — » 'A" - "F" 


D228 


- 


8B 


F6 


07 


STA 


$07F6 


affiche la valeur correcte a I'ecran. 


D22B 


- 


8A 






TXA 






D22C 




29 


OF 




AND 


£$0F 


Valeur des 4 bits de faible poids. 


D22E 
D23C 




09 
C9 


BO 
BA 




OftA 
CMP 


£$B0 
£$BA 




D232 




90 


02 




BCC 


$D236 




D234 




69 


06 




ADC 


£$06 


Correction pour les valeurs superieures a 9, 


D236 




8D 


F7 


07 


STA 


$07F7 


resultat correct. 


D239 




4C 


39 


D2 


JMP 


$0239 


Attente d'un RESET, car le programme boucle 



JMP $D239. 



INTEXIT 



Sortie de la routine de gestion d'interruption, lorsque ProDOS trouve un pointeur de sous- 
programme aux adr esses $BF80-$BF87. 



BFD0 - 


AD 


8D 


BF 


LDA 


SBF8D 


INTBANK1 . Charge le statu! de lo ROM. 


BFD3 - 


F0 


0D 




BEQ 


SBFE2 


£$00 = Bank 1 connectee : elle le reste. 


BFD5 - 


30 


08 




BMI 


SBFDF 


£$FF = Bonk 2 a commuter. 


BFD7 - 


4A 






LSR 






BFD8 - 


90 


0D 




BCC 


SBFE7 


Sans signification, valeur aleatoire. 


BFDA - 


AD 


82 


CO 


LDA 


SC082 


£$01 - ROMON ; IRQ a parti rdu moniteur. 


BFDD - 


B0 


08 




BCS 


SBFE7 


Sans signification, valeur aleatoire. 


BFDF - 


AD 


83 


CO 


LDA 


$C083 


Commute la Bank 2 {protegee contre lecriture). 


BFE2 - 


A9 


01 




LDA 


£$01 


Initialise Paccumulateur a la valeur £$01 , 


BFE4 - 


8D 


8D 


BF 


STA 


SBF8D 


et fixe le mode de la ROM — ROM ou Moniteur — . 


BFE7 - 


AD 


88 


BF 


LDA 


SBF88 


Recharge la valeur de laccumulateur a partir de INTAREG, 


BFEA - 


40 






RTI 




Retour de ('interruption. 



IRQ-Handler Carte langage commute© : 



FF9B - 


48 




PHA 




FF9C - 


A5 


45 


LDA 


$45 


FF9E 


3D 


56 BF 


STA 


SBF56 


FFA1 - 


68 




PLA 




FFA2 - 


85 


45 


STA 


$45 


FFA4 - 


68 




P1A 




FFA5 - 


48 




PHA 




FFA6 - 


29 


10 


AND 


£$10 



Sauvegarde de I'accumulateur. 

L accumulateur contient le pointeur RWTB. 

INTACC. Sauvegarde du pointeur dans la page global e de PRODOS. 
Depile vers A, la valeur initiale, contenue au moment de I'interrup- 
tion IRQ, 
et la sauvegarde. 

Sauvegarde du registre d'etat PS. 
Teste si IRQ provient d'un BReaK, 
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FFAR 


uu 


i a 




DIN t 




FFAA - 


AD 


00 


DO 


LDA 


SDflOO 


FFAD- 


49 


D8 




EOR 


£SD8 


FFAF - 


FO 


02 




BEQ 


$FFB3 


FFB1 - 


A9 


FF 




LDA 


£$FF 


FFB3 - 


3D 


3D 


BF 


STA 


SBF8D 


FFB6 - 


3D 


57 


BF 


STA 


$BF57 



oui, alors branche a la routine BReaK. 
Sinon, teste quelle Bank est commutee. 
BAN KI D pour la Bank 1. 

INBANK1 . £$00 Bank 1 , ou £$FF Bank 2, 
sauvegarde : 

$BF56-$BF57 » $45 pour LByte 

» £$00 ou £$FF pour MByte. 

Pointeurs possibles : 
HByte, LByte. 
$FF, contenu de $45. 
$00, contenu de $45. 
Charge le pointeur HByte ; 
et le place au sommet de la pile. 
Charge le pointeur LByte ; 

et le place au sommet de la pile. Fixe I'adresse $BF50 comme 
adresse RTI, 

Charge le dropeau du bit d'inhibition (bit 2) du registre d'etat PS 
— IRQ masque — , 

et le sauvegarde au sommet de la pile. 
Charge le pointeur HByte, 
et le sauvegarde au sommet de la pile. 
Charge le pointeur LByte, 
et le sauvegarde au sommet de la pile. 
Moniteur BReaK, adresse de retour : 

» $FA41 + £$01 = $FA42 (a cause du RTS : + 1). 

FFC8 - 8D 82 CO STA $C082 ROAAON. Contient un RTS lorsque I'appel provient du moniteur. 



FFB9 - 


A9 


BF 


LDA 


£$BF 


FFBB - 


48 




PHA 




FFBC - 


A9 


50 


LDA 


£$50 


FFBE - 


48 




PHA 




FFBF - 


A9 


04 


LDA 


£$04 


FFC1 - 


48 




PHA 




FFC2 - 


A9 


FA 


LDA 


£$FA 


FFC4 - 


48 




PHA 




FFC5 - 


A9 


41 


LDA 


£$41 


FFC7 - 


48 




PHA 





LANGIRQ 



Entree de la routine, apres une interruption IRQ appelee depuis la carte langage, et a la suite d une ins- 
truction RTI detectee a I'adresse $BFEA de la page globale de PRODOS. 

BF50 - 8D 8B CO STA $C08B BANKSELECT. Bank 1 : protegee contre I'ecriture. 
BF53 - 4C D8 FF JMP SFFD8 Saut dans la carte langage. * 



LANGINTEXIT 



Entree de la carte langage : provient d'une routine sollicitee par une interruption IRQ, avec comme ori- 
gine la page globale de PRODOS, apres la selection en lecture ; protegee contre I'ecriture. 



FFD8 - 


8D 


88 


BF 


STA 


SBF88 


Sauvegarde du registre Accumulateur. 


FFDB - 


AD 


56 


BF 


LDA 


$BF56 


INTACCU. Charge la valeur, 


FFDE - 


85 


45 




STA 


545 


et sauvegarde en ASH. 


FFE0 - 


AD 


8B 


CO 


LDA 


SC08B 


BANKSELECT. Commute la Bank 1 


FFE3 - 


AD 


8B 


CO 


LDA 


$C08B 


+ ecriture autorisee. 


FFE6 - 


AD 


57 


BF 


LDA 


$BF57 


£$00 = Bank 1 ; £$FF - Bank 2. 
Utilise comme pointeur HByte. 


FFE9 - 


4C 


D3 


BF 


JMP 


$BFD3 


INTEXIT2, Deconnecte la Bank et actual ise RTI 
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I RQ Interrupt Lang age carte com mutes : 



FF9B - 


48 






PHA 




FF9C - 


A5 


45 




LDA 


$45 


FF9E - 


8D 


56 


BF 


STA 


SBF56 


FFA1 - 


68 






PLA 




FFA2 - 


85 


45 




STA 


$45 


FFB3 - 


8D 


8D 


BF 


STA 


SBF8D 


FFB6 - 


8D 


57 


BF 


STA 


$BF57 



Contenu de I'accumulateur, au moment de ^interruption IRQ. 
Charge A5H, qui contient le pointeur : Read • Write — Tracks - 
Blocks — HByte— . 

Sauvegarde dans INTACCU — Page globaie — . 
Depile le contenu de laccumulateur, au moment de linterruf 
tion IRQ, 

et le sauvegarde dans A5H. 

INTBANK1 
INTBANK2 




indispensable pour programmer I Apple lies 




BOITE A OUTILS 



DE t APPLE IICS 




Editions du P.s.l. 

5, Ploce du Colonel-Fobien 75491 PARIS Cedex 

Service Minitel : 

Sur le 3615, taper 01, puis PSI 
(344 pages — Reliure spirale). 



On ne peut pas dire que la programmation de 
I'Apple IIGS soit d'une reelle simplicite. Bien sur, 
si Ton se contente du bon vieil Applesoft, pas de 
probleme, mais il en va autrement des que le pro- 
grammeur en herbe tente d'utifiser les nombreux 
et merveilleux outils du GS. 

Comme le precise Jean-Pierre Curcio dans Pintro- 
duction de so BOITE A OUTILS DE I'APPLE IIGS, la 
remarquable facilite qu'apporte l interface utilisa- 
teur est liee a des regies auxquelles doit imperati- 
vement se plier le programmeur. Plus de facilite 
pour I'utilisQteur signifie en I 'occurrence moins de 
iiherte pour le developpeur, 

Avec I'Apple IIGS, on dispose d 'une centairve de 
sous-programmes performants... mais qu'il faut 
apprendre d utilises On salt que la Toolbox de 
I'Apple IIGS ressemble a celle du Macintosh... 
mais ce n'est pas un avantage pour les incondition- 
nels de I'Apple //. 

Jean-Pierre Curcio apporte une tres importante 
contribution a la programmation avancee sur 
Apple IIGS. Chacun des chapitres de son ouvrage 
presente un outil (ou manager) et les routines qui 
le composent. Celles-ci sont illusfrees par de petits 
exernples en C (d'ou I'interet de commencer ou de 
poursuivre I'apprentissage de ce langage avec 
notre ami Claude Aubry). 

A noter qu'un exemple complet est propose a la fin 
de cheque chapttre et qu'une disquette d'accompa- 
gnement peut etre obtenue aupres de lauteur. 

NESTOR. 
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Vient de paraitre 



Les Editeurs nous 
communiquent : 



imnUu, tax. tiio«uon 



AUTOMATISMS ET 
MICRO ORDINA TEURS 




• AUTOMA TISMES ET 
MICRO-ORDINA TEURS 
(Michel Jacquelin) 

lo micro-informatique va de plus en plus parti- 
ciper 6 la geslion programmes des automates. 
Cet ouvroge s'adresse a I'utilisateur dun 
micro-ordinateur (AMSTRAD, MSX, TO7-70...) 
oyant d£ja une certaine pratique de lo pro- 
grammation, connaissant les materiel* educa- 
tifs LEGO (et plus porticulieremenl les boites 
techniques ouxquelles sonl generalement 
associes mateurs, capteurs et transmissions 
mecaniques diverses), et desiront reoliser lui- 
meme des automates ou jouets program- 
mable*. II decouvrira avec ce livre, comment 
reoliser une machine d I aver, un convayeur, 
desfeux frfcolores ou encore un pont roulanl, a 
portir du bus d'exlension de son micro- 
ordinateur. 

Le livre s'articule autour de cinq parties : 

— La logique et le GRAFCET (logique com- 
binafosre, sequentielle...). 

— La micro-informotique (I'ordinaleur, le 
bus d'extension...). 

— Les composants de I'automate (action- 
neurs, capteurs). 

— L'automote (definition., programmo- 
tion, coupleurs et interfaces), 

— L exploitation de I'automate (longoge 
machine, langoges evoluees, BASIC). 

De plus, certains concepts informaiiques sont 
rcppeles au lecteur, afin de lui permettre une 
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meilleure comprehension des contenus de cer- 
tains chapitres. 

cedic/nathan — 6-10, boulevard Jourdan 
750U PARIS ( 160 pages - 99 F). 



• L'HOLOGRAPHIE 
De la decouverfe 
a la realisation pratique 
(Jean Heraud) 

L'holographie est l une des inventions les plus 
passionnantes de la science moderne, qui valut 
d'ailleurs a son decouvreur Denis Gabor, un 
juste pnx Nobel en 1971. Ellepermet I elabora- 
tion d'un type nouveau de document dont le 
realisme est total, les hologrammes, ces 
fameuses images non seulement en relief mais 
qui reproduisenf les reflets, la micro-structure 
el meme les vraies couleurs. Grace a des lasers 
de faible puissance et peu couteux, il est 
aujourd'hui aussi facile de creer des hologram- 
mes que de realiser des photographies. 
L'ouvrage de Jean Heraud permet d'abarder la 
technique de l'holographie, d'en com prendre 
ies principes (optique, lumiere coherente du 
laser) et de passer tres rapidemenl a la 
realisation. 

Livre d 'initiation 6 la pratique, il decrit en 
detail, a I'aide de nombreuses figures et photo- 
graphies, I'installation d'un petit laboraloire 
holographique : son materiel, so mise en 
ceuvre... Grace aux progres des lasers, lima- 
gerie holographique peut etre obordee par 
tous, Ce livre est, en effet, destine 6 tous les 
amateurs qui desirenl aborder I'hofographie, 
quel que soil leur niveau de connaissances 
(jeunes, membres de clubs, lyceens...). De 



L'HOIOGRAPHIE 




\ i.\NLALivvrK». 

I'RMlOt l 

Inn H. •>...] 
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plus, I enthousiasme de I'auteur et sa gronde 
competence dans le domaine du laboratoire, 
acquise apres de longues annees de pratique, 
lui onl permis de perfettionner et de simplifier 
cette technique pour la mettre d lo porlee des 
nort-inities, en porticulier en communiquanl 
son savoir-faire el son experience, si precieux 
pour reussir les differentes sories d'hologram- 
mes (par transmission, par reflexion...). 
Comme il le dit lui-meme, "outre le cote artisti- 
que, c'est surtout fa mmutie de l operateur qui 
est determinant pour la reussite des beaux 
hologrammes". En resume, Jeon Heraud a 
voulu, par cet ouvrage, permettre d ceux qui 
veulent aborder l'holographie de reoliser rapi- 
dement et facilement des hologrammes, apres 
en avoir bien compris ie mecanisme. afin d en 
exploiter au maximum toutes les possibilites. 
Dvnod - 1? rue Remy-Dumoncel BP. SO, 7566! PARIS 
Cedex U (Wpoges brtxhe, I20F} 

• LES NOUVELLES LOGIQUES 
POUR ['INTELLIGENCE 
ARTIFICIELLE 
(Arnold Kaufmonn) 

L'irtformatique est nee de Implication de la 
logique booleenne. Ses demiers developpe- 
ments a trovers ( intelligence artificielle el les 
systemes experts demandent de nouveaux 
outils qui sachent trailer Uncertain, le subjec- 
tif, l imprecis. propres aux operations habiluel- 
les de la pensee. Nouvelles iogiques pour 
I'infeHigence artificielle se propose d'etudier 
ces instruments. Destine a un large public de 
scientifiques. d'informaticiens, mois aussi 
d'ingenieurs, de medecins, de biologistes, etc., 
cet ouvrage sappuie sur de tres nombreux 
exemples pour presenter les concepts caracte- 
ristiques des logiques floues, sous-ensembles 
alealoires flous, representations qui conser- 
vent la variele des jugements et reconnaisseni 
des niveaux a la connoissance. Arnold KALL- 
MANN est un ancien professeur de I'lnstitut 
polytechnique de Grenoble, de I'Ecole supe- 
rieure des mines de Paris et de I'Universite de 
Louvain. II est I'auteur ou le co-auleur de plus 
de soixante ouv rages, dont certains onl ete tra- 
duits en plus de vingt langues ; ces ouvrages 
concernent les mathematiques oppliquees. la 
recherche operalionnelle, -i'informarique, la 
sociologie, les metbodes de creativite, divers 
domaines des sciences economiques. II con- 
vient de signaler, en particulier. ses ouvrages 
concemant les mathemoliques floues, lesquels 
sort connus dans le monde entier, Les plus 
recents travaux d'Arnold KAUFWANN se rap- 
portent aux logiques floues, a ('intelligence 
artificielle, aux systemes experts. II a recu de 
nombreuses distinctions en France et dans le 
monde pour ses travaux. 
Relit - 300 pages -290FTTC 
Editions H£RM£S - 51 rue Bennequin 750U PARIS 
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INITIATION 



MICROTEL CLUB MOURENX 2<, 



LOGIQUE 

elementaire 



Ce programme a ete realise au MICROTEL DE MOURENX, sur APPLE lie avec 
carte 80 colonnes, sous ProDOS. Comme le precise M. HUGUET, cet "exercice 
de style" ne serf rigoureusement a rien, sinon d amuser la galerie en decorti- 
quant un raisonnement logique dans un univers tres restreint. II a en outre 
I'avantage d'exprimer son raisonnement en langage clair (nous en fournissons 
un exemple, directement sorti sur imprimante, a la suite du programme). 

Nous le publions parce qu'il constitue un bon exercice, pour celles et ceux qui 
ne sont pas rompus a la pratique de TApplesoft. II est abondamment docu- 
ments (lire toutes les lignes de REM). De plus, il peut servir de schema de 
depart pour ('elaboration de raisonnements beaucoup plus complexes... ce que 
nous souhaitons, bien entendu. 



3C 

31 

3; 

3* 
3S 
3<! 
37 
3E 
35 

4C 



100 


REM MICROTEL CLUB DE MO U REN 

XctJciJ 




200 


PRINT 
"TYPE: 


: PRINT : PRINT " 
" ; CHR* (34) j " DESI RE 




41 

4; 


no 


REM ACHATScUctJ 






OB JET 


1 ; CHR* (34) 


7DA5 


4: 


120 


REM 08 12 85 1? 11 86ct 




210 


PRINT 


: PRINT '•= sujet DE 




44 
45 




Jet J 






SIRE 


compl ernen t " 


2A4A 


130 


REM PROGRAMME D' INTELLI GENC 




220 


PRINT 


: PRINT " "PIERRE DE 




46 




E ART] FI CI ELLE NO let Jet J 






SIRE 


DU PAIN" 


0E36 


4; 


140 


TEXT : HOME 




230 


VTAB 2 


2: HTflB 1 : PRINT "TAP 




4£ 


150 


DIM A* <200.20> ,NA<200 ) ,M <2 
00) 






EZ UNE 
GET A* 


TOUCHE QUELC0NQUE" ; ! 


766D 


45 
5C 


160 


D* = CHRS C-4.) 


B3A4 


240 


HOME : 


PRINT "0U BIEN:" 




51 


170 


PRINT D* j "PREFIX /MICROTEL" 




250 


PRINT 


: PRINT : PRINT kl 




52 


180 


HOME : PRINT " 






"TYPE: 


■ \ CHR* (34) ;" DESI RE 




5c 




"/MI CROTEL/ACHATS" 






UERBE"; CHR* (34.) 


04A5 




190 


PRINT : PRINT : PRINT " 

"CE PROGRAMME RESOUT PAR LE 




240 


PRINT 
SIRE 


: PRINT "= sujet DE 
~ c omp 1 em e n t verbal " 








RAISONNEMENT LE PR0BLEME P 




270 


PRINT 


: PRINT " JEAN DE 




5*: 




OSE PAR UNE BASE DE ""DONNE 






SIRE ' 


FA I RE DU SKI" 


4B13 






ES COMPRENANT DES PHRASES D 




280 


PRINT 


: PRINT : PRINT "AUEC 








U TYPE:" 


D4B8 




L' EXPLICATION:" 




5S 
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TR 



290 
300 

310 

320 
330 

340 
350 
360 
370 
380 
390 



410 
420 

430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 



540 



550 



PRINT : PRINT POUR ue 
rbe IL FAUT "complement 
1 , complement 2 ET comple 
ment 3" 

PRINT : PRINT "= POUR FA I RE 
DU SKI IL FAUT DES SKIS " 
DES CHAUSSURES "ET DES 
TICKETS" 



VTAB 22: HTAB 
EZ UNE TOUCHE 
GET AS 

HOME : PRINT "QU OES PHRASE 
S DU TYPE:" 
PRINT : PRINT i 
TYPE : " ; CHR* 
E"j CHRf <34) 



1 : PRINT 'TAP 
QUELCONQUE" : : 



PRINT " 
<34) ;"POSSED 



PRINT 
SSEDE 
PRINT 
SSEDE 
PRINT 



: PRINT "= sujet 
complement" 



PO 



JULES " "PO 



PRINT "AUEC 



ue 



UE 



: PRINT " 
DES SKIS' 
: PRINT 
SA C0ROLLAI RE : " 
PRINT : PRINT N = sujet 
UT YENDRE " '"complement" 
PRINT : PRINT JULES 
UT VENDUE ""DES SKIS" 
VTAB 20: HTAB 1: PRINT "<L' 
ABSENCE DE COROLLA! RE SUPPO 
SE QUE JULES NE VEUT PAS VE 
NDRE DES SKIS.)" 
VTAB 22: HTAB 1: PRINT "TAP 
EZ UNE TOUCHE QUELCONQUE" ? : 
GET A* 
GOTO 520 

REM clJcJJRESTlTUTION DES P 
HRASESctJcUct J 
HOME 
FOR 1 



= 1 
= i 



TO IJ 



PRINT 
FOR T 
PRINT 
NEXT T 
PRINT 
NEXT I 
RETURN 
REM ctJctJ 



TO NA<I) 



PRINT 



MENUctJctJ 



JTAB 10 j PRINT "VOUL 
TRAITER UNE ANCIENN 
>E DONNEES? TAPE 



HOME 
EZ-VOUS 
E 8ASE 
2 A" 

PRINT : PRINT "OU 61 EN COMP 
LETER UNE ANC1ENNE BASE DE 
DONNEES? " •' TAPEZ M" 
PRINT : PRINT "OU ENCORE EN 



•5569 



51B6 
30D3 



560 

570 
580 
590 
600 
<S1 
620 

630 

640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 



78C 



790 



810 
320 
830 
340 

850 
860 



CREER UNE NOUVELLE? 

TAPEZ C" 

GET A*: IF A* = CHR* (27) 
THEN END 

IF A* = "A* THEN 1630 
IF A* = M M M THEN 600 
IF A* < > "C" THEN 530 

REM c_tJc_tJNQM?ct_Jc_t J 

PRINT D*;" CATALOG" 

INPUT " NOM DE LA BASE DE DO 

NNEES DES I REE ? " ;RS 

REM c^JctJOLWERTUREctJc_tJct 

J 

ONERR GOTO 780 

PRINT D$i"OPEN" ;R$ 

PRINT D$ j "READ" ;R* 

INPUT IJ 

FOR I = 1 TO I J 

INPUT NAUJ 

FOR T = 1 TO NA<I> 

INPUT A$<I f T) 

NEXT T 

NEXT I 

PRINT D$ ; " CLOSE" 
POKE 216,0 
GQSUB 420 

PRINT : PRINT "TAPEZ UNE TO 
UCHE QUELCONQUE . " : GET At : 
GOTO 860 

HOME : PRINT "IL SEMBLE QUE 
CETTE BASE DE DONNEES NE C 
ONVIENNE PAS . UOULEZ-VOUS R 
ECOMMENCER?" 
POKE 216.0 

GET A$: PRINT A*: IF A* = 
CHR* <27) THEN 2910 
IF A$ = "O n THEN 600 
IF A$ = "N" THEN 2910 
GOTO 780 

REM cJJctJENTREE DE DONNEES 
c_t Jc_t J " 
I = 

I = I + 1 : T = 1 : K = 1 :P*< 1 ) 



870 REM cJJINSTRUCTIQNSctJ 
880 HOME : PRINT "PHRASES DU TY 
PE:" : PRINT " "X " DESIRE "Y 



890 



900 



910 



PRINT 
1, 22, 
PRINT 
INT " 
PRINT 



* " POUR ' Y "IL FAUT Z 
. . . ET ZN" 

" X POSSEDE Y M : PR 
X VEUT VENDRE Y" 
* < L ' ABSENCE DE MENT JO 



A32E 

35F5 
DB95 

A969 



7EEF 
8984 
D26E 

AAAD 

CF03 

A7D6 
9DCB 

0CAE 
F946 



3°9© 



53A4 
0CAE 

42CF 
F804 
294A 



654^ 

72FC 
4753 



N: X VEUT 'JENDRE Y SUPPOSE 
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LOGIQUE ELEMENTAIRE (suite) 



QUE X NE VEUT PAS VENDRE Y) 

920 PRINT "*** "ANNULE LA PHRAS 

E PRECEDENTE" 
930 PRINT "FIN APRES LA DERNIE 

RE PHRASE" 
940 REM c_t JENTREE DES CARACTERE 

SctJ 

950 VTAB 9: HTAB 1: PRINT [j* " 

960 GET C*: PRINT C*: IF CI = 
CHR* <44) THEN C* = CHR* < 

42) 

970 IF C* = CHR* (13) THEN 104 


980 IF C* = CHR* (8) THEN IF 

LEN <P*<I)> = THEN PRINT 

CHR* (7): GOTO 940 
990 IF C* = CHR* C8> THEN IF 

LEN <P*<I>> = 1 THEN P*n> 

= u 1 : GOTO 950 
1000 IF C* = CHR* (8) THEN P*<J 

) = LEFT* <P*U), LEN <P*< 

I ) ) - 1 ) : GOTO 1020 

ioio pic i) = Pi ci.) + c* 

1020 VTAB 9; HTAB It PRINT I J • 1 
;P*n>; CHR* (29);: GOTO 96 


1030 REM ctJCAS SPECIAUXetJ 
1040 IF P*<I) = "FIN 1 THEN I J = 

I - 1 : GOTO 1460 
1050 IF PS<I) = '***" THEN 1 = I 

- 2i GOTO 860 

1060 REM c_t J ANALYSE DES PHRASES- 
MISE EN SEGMENTS SIGNIFICAT 
I FSct J 

1070 REM I = NUMERO DE LA PHRASE 
1080 REM A* CI.T) = SEGMENT SIGN 
1FICATIF 

1090 REM T = NUMERO DU SEGMENT D 

ANS LA PHRASE 
1100 REM NA CI) = N OMBRE DE SEGM 

ENTS DANS LA PHRASE I^tJ 
1110 A$(I,T) ■ LEFT* <P*U),1) 
1120 IF A*(I ,T> = THEN I = I 

- 1 : GOTO 860 

1130 K = K + 1:C* = MID* (P*CI> 
,K,1) 

1140 IF CI = " " THEN 1180 
1150 A*<I,T) = A*U ,T> + C* 
1160 IF K = LEN CPttI)) THEN NA 



B94 



6BD7 



1170 
1180 



1190 
1200 



(I) = T: GOTO 1180 
GOTO 1130 

IF A*(I ,T> = "POUR - OR A*<I 
,T) = "DESIRE" OR A*( I ,T) = 
"POSSEDE" THEN F = 1: GOTO 
1350 

IF T < 2 THEN 1350 



IF A*<I ,T> 



= "FAUT" AND A*< 
IL" THEN F = 1 : 



1210 
1220 

1230 

1240 
1250 



I ,T - 1) = 
GOTO 1290 

IF LEN <A*(I,T - 1)) < 3 T 
HEN 1230 

IF A*(I ,T> = "FAUT" AND RI 
GHT* <A*(I,T - 1),2) = ML" 
THEN X = 2: GOTO 1320 
IF A*(I,T) = "VENDRE" AND A 
*U ,T - 1) = "UEUT" THEN F 
= 1 : GOTO 1290 
IF LEN CASH ,T - 1)) < 5 T 
HEN 1260 

IF A*(I,T) = "VENDRE" AND 
RIGHT* (A*<I ,T - 1>,4) » "V 
EUT" THEN X = 4: GOTO 1320 
1260 IF F = 1 THEN F = 0: GOTO 1 
350 

1270 IF RIGHT* <A*(1,T),1) = "* 
" THEN F = 1 : GOTO 1290 

1280 IF A*CI,T) = W ET U THEN 1350 

1290 A*(I,T - 1) = A*<I ,T - 1) + 
" M + A*<] ,T> :A*<I ,T) = 

1300 IF K = LEN <P*<I)> THEN NA 
(I) = T - 1 : GOTO 1370 

1310 GOTO 1130 

1320 A*CI,T) = RIGHT* -:A*-:i,T - 
1) ,X) + " " ♦ A*< I ,T) 

1330 A*<I,T - 1) = LEFT* <A*(I t 
T - 1), LEN (A*<1 ,T - I)) - 



1340 
1350 

1360 
1370 
1380 
1 390 



1400 
1410 
1420 



X - 1) 
F = 1 : 
IF K = 

<1) 
T = 



GOTO 1350 
LEN <P*<I)> THEN NA 
= T: GOTO 1370 
T + 1 : GOTO 1130 



FBDO 



HOME : PRINT I ; " " ; 
FOR T = 1 TO NACI ) 
IF RIGHT* <A*(I ,T) ,1) = " * 
" THEN PRINT LEFT* <A*a , 
T), LEN <A*U,T)> - 1); CHR 
* <44) j" " ; : GOTO 1410 
PRINT A*U,T);" " ; 
NEXT T 

VTAB 23: PRINT "OK? *(Q/N>" 



F6ED 



32 
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; : GET A* 
1430 IF AS = "0" THEN 860 
1440 IF A* < > "N" THEN 1420 
1450 P*< J> = " " : I = I -Is GOTO 



1460 

1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 

1620 
1630 
1640 
1650 
1660 

1670 
1680 

1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 

1840 

1850 
I860 
1870 
1880 



REM ctJcUMISE 
ctJcUctJ 
GOSUB 420 

Df ; 
D-i; 



SUR DISKETTE 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FOR I 
PRINT 
FOR T 



OPEN" ; R$ 
CLOSE" 
DELETE" ;RS 
OPEN" ;R* 
D$ ; "WRITE" ;R$ 
IJ 

= 1 TO IJ 

mu) 

= 1 TO NAM) 
PRINT At CI ,T) 
NEXT T 
NEXT I 

PRINT D< i "CLOSE" 

REM ctJciJENCHAlNEMENTctJci 

JctJ 

3) = 1 

TEXT : HOME 

DIM BA$<50) ,CA*<50) 

IF 2U ~ 1 THEN 1800 

REM ctJcWBASE DE DONNEESct 

JctJctJ 

PRINT 0*;" CATALOG" 

INPUT "NOM DE LA BASE DE DO 

NNEES DESIREE ? " ;R$ 

I = 0:X = 

PRINT D*; B OPEN" ;R$ 

PRINT DS ; ■ READ" ;R$ 

INPUT I J 

FOR I = 1 TO I J 

INPUT NA<1) 

FOR T = 1 TO IMA (. I ) 

INPUT A* (3 ,T) 

NEXT T 

NEXT I 

PRINT D% ; " CLOSE" 

I* = CHR* (?) 

PRINT D*i"PR£l" 

PRINT 1*;"80N" ; 

IF X = 1 THEN X = 0: GOTO 1 

980 

PRINT " BASE DE DONNEES " ?R$ 

j" :": PRINT : PRINT 

FOR J = 1 TO IJ 

PRINT J;" ; 

FOR T = 1 TO NACJ) 

IF RIGHT* (A$:J,T),1) = "# 



BA3B 



F946 
9EE3 



<J,T), 



THEN A$<J,T) = LEFT* (A* 
LEN <A*<J,T>> - I): 
PRINT A*<J,T); CHR* (44) j" 
" ; ;A*(J,T) = A*<J r T) * " *; 
GOTO 1920 
1890 A*<J,T> - A*CJ ( T) + 1 
1900 PRINT A*< J,T) ; 

1910 IF LEFT* <A$<J,T),3) = M ET 
" THEN A$<J,T) = MID* (A* 

CJ,T) ,4, LEN (A$<J,T>> - V) 
1920 NEXT T 
1930 PRINT 
1940 NEXT J 
1950 PRINT DS;"PR£3" 
1960 HOME : <JTA6 10: PRINT "TAPE 

2 LINE TOUCHE QUELCONQUE . " 
1970 GET A*:X = l! GOTO 1810 
1980 PRINT : PRINT : PRINT 
1990 PRINT ' RAI SONNEMENT i a i PRI 

NT : PRINT 
2000 REM ctJcUDES I REc_tJc_tJc_t J 
2010 W = 1 

2020 FOR 1 = W TO IJ 

2030 IF A*<I,Q) = THEN 2050 

2040 IF A*<I,2) = "DESIRE ™ THEN 

ZA - 1 : GOTO 2080 
2050 NEXT I 

2060 IF ZA = THEN PRINT : PRI 
NT "C'EST TOUT ! " : GOTO 291 

19B2 
2070 = : GOTO 2010 
2080 PRINT :R = 1 
2090 GOSUB 2790 

2100 IF AS<I,4) = "POUR " THEN 2 

D = 1 : GOTO 2150 
2110 REM clJcUPOUR Y 1L FAUTctJ 

clJcU 
2120 FOR J ■ 1 TO I J 
2130 IF A«(J,1> = " POUR 1 AND AS 

CJ,2) = A$<I,3) AND AS^;j t 3) 

= "IL FAUT " THEN 2230 
2140 NEXT J 

2150 REM cJJctJPOSSEDE Yc_tJctJet 

J 

2160 FOR J ■ 1 TO I J 

2170 IF A*<J,2> = "POSSEDE " AND 

A$<J,3> = A$<I,3) THEN ZC = 

Si GOTO 2380 
2180 NEXT J 

2190 IF ZC = THEN PRINT "ET Q 
UE RI EN NE PERMET DE LE SAT 
ISFA1RE, " 

2200 PRINT "ALORS " ;A*C I , 1 ) ; " RES 
TE INSAT J SFAIT . " 
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LOGIQUE ELEMENTAIRE (suite) 



221 

dm mm J V 


At (.1 n i = w * J| * 7 r = n ■ 7 r = n 






C ) H? \ O f -JJ 






tZD = 




2540 


At < J . 3 ) = Ase t n 




2220 


GOTO 2Q50 


A77 2 


2550 


At ( K . 1 ) = " " ■ A4 <^ K 7 > = u 11 « A 




2230 


R = J 


1 D6C 




t< K . 3) = 'NA' K) = 


R7?7 


2240 


GOSUB 2790 




2560 


ZB = 0:ZC = Or GOTO 2020 


ad i r 


2250 


PRINT "ALORS " ;At( I , 1 ) ;At< I 




2570 


RB1 ctJctJX EST SATISFAITct 






,2) ;AtC J,4) ;At< J, 1 ) ;At( J, 2) 






Jet Jet J 




2260 


IF NA(J> = 4 THEN 2300 




2580 


IF ZD = 1 THEN 2660 


52DF 

>J L\ L/C 


2270 


FOR K = 5 TO NA(J) 


29BC 


2590 


PRINT "ALORS " ; 




2280 


PRINT "ET " ;At< I , 1 ) ;At< I ,2> 




2600 


PRIf-fT At< 1 , 1 > ; " EST SATISFAI 






:At< J »tO sAt' J . 1 ) lAt' J .2^ 


F7C9 




T 


9497 


2290 


NEXT K 




2610 


FOR L = 1 TO NA<I> 


5EB8 


2300 


At ( I . 3 > = At< J.4) :At< I 4> = 




2620 


At(I»L) = "" 


908B 




Att J , 1 ) :At< I . 5^> - At<J.2):N 




263Q 


NEXT L 


97CE 




AH) - 5 




2640 


NACI) = 0:ZC ■ 0:ZD = 


6FD8 


2310 


IF NA<J) - 4 THEN ZB = 0; 6 




2650 


ZB = 0: GOTO 2050 


AB48 




0T0 2020 




2660 


REM c_tJc_tJD'AUTRES DESIRSct 




2320 


FOR K = 5 TO NA<J) 


29BC 




JctJcj: j 




2330 


IJ ■ IJ 4 1 


B3EF 


2670 


FOR L = 1 TO IJ 


8E22 


2340 


At<IJ,l) - At < 1 , 1 ) :At< U r 2) 




2680 


IF AtCL f 0) - THEN 2700 


0FD6 




= ASC I ,2) :At< I J,3) = At<J,K 




2690 


if Ata, n ■ a*< i , n and At 






):A$<IJ,4) = AtC J f 1 > :At< I J, 






(L r 2) = At(I,2) AND At(L,3) 






5) = At<J,2> 






< > At (1,3) AND At(L,4) = 




2350 


NACIJ) ■ 5 


2778 


2700 


NFXT J 


ri Lt 


2360 


NEXT K 


Al CD 


271 


PRINT "ALORR " -A*'' 7 1")-"PFII 




2370 


2B = : GOTO 2020 


A545 




T " *At C I ^ 




2380 


R = J 


1D6C 


2720 


PRINT "FT " • 

1 "ill 1 CI ■ 


d^F ■? 


2390 


GOSUB 2790 


7 7 R 7 


2730 

4m- f W V 


goto ?xnn 

WW 1 U 4m W V U 


5D73 


2400 


REM eJJeJJX POSSEDE Yet Jet J 




2740 


PRINT "ALORS M iAtCI 1 I ■ " Pfll 1 






c_t J " 






RRAIT " :A4f T S5 


PFFa 


2410 


IF At< J , 1 > - At C I , 1 > THEN 2 




2^50 


f? = 1 • RA"i ' B ) — " MA T Q « i?n - 






570 






o 


J Lzo 


2420 


REM ctJctJZ UEUT UENDRE Yet 




2760 


W L. 1 -J 1 L_' L. 1 i_ „ U 


777T 




JcJJcJJ 




2770 


At »' I > = " # " 




2430 


FOR K = 1 TO I J 


3F21 


2780 


?P. = fi'7r = fj»M — i • nnTn o 




2440 


IF At<K.l ) = AtC J 1 i AND A* 






_ 'J 






(K,2) = "MEUT VENDRE " AND 




2790 


REM ctJrtJ^/P RFPriN^TTTIITT n 






At»:K,3) = At<J,3> THEN 2490 






N DE PHRASESct Jet Jet J 

' ^ WW rill \n k_ -vj V t. ^ U L i U 




2450 


NEXT K 




2800 


IF 2B = THEN BAt''R} - "CD 




2460 


PRINT "ET QUE ■ ; At ( J , 1 ) ; "NE 






MME H, ?R = !• GOTfl ?fi?n 


'U54 




UEUT PAS UENDRE ";AtCJ,3) 


3572 


2810 


8At<R) = "ET QUE " 


i-H*. ». 


2470 


GOTO 2180 




». O L U 


FOR T = 1 Tfl MAi'P 1 ! 


orrn 
oLLr 


2480 


R = K 




2830 


BAtCR) = BAt(R> + At ( R , T ) 


99B4 


2490 


GOSUB 2790 




2840 


IF At<R,2) = "DESIRE " THEN 




2500 


m = "A " 


M 




2870 


AA93 


2510 


IF LEFT* < At < J , 1 > ,3) = " LE 




2850 


IF T > 4 AND T ■[ NACR) THEN 






" THEN At<J f 1 ) = MIDt CAt 






CAt.:'R) = CAt(R) + LEFTt CA 






< J, 1) , 4) :Wt = "AU " 


02CF 




t< R ,T) , LEN ':At<R,T)> - 1> 




2520 


PRINT "ALORS • ;At <I f 1> \ *ACH 






+ CHRt <44) + " " j GOTO 288 






ETE " |A»<I f 3) ;Wt;At<J, 1) 


DC66 









2530 


PRINT -ET " ;AtU ,1) ;"P0SSED 




2360 


IF T > 4 AND T = NA(R> THEN 





GUY-HACHETTE 



CA*<R) ■ CA*<R) + 
*<R,T)j GOTO 2880 

2870 CA«<R) = BA$<R> 

2880 NEXT T 

2890 PRINT CA*(R) 

2900 RETURN 



'ET 



+ A 



Essayez, dans un 
premier temps, de 
construire votre 
propre base de 
donnees a partir de 
ce petit exemple. 




Rappelons que ce 
programme 
d'initiation a ete 
realise dans le cadre 
des activites du 
MICROTEL CLUB DE 
MOURENX. 



EA1D 

4D65 
A7D6 

63B1 



2910 REM cJJcJJFINcJJc_tJ 
2920 PRINT ! PRINT i PRINT 

NT : PRINT 
2930 PRINT DS?'PR£3" 
2940 END 



PRI 



638A 
0180 



BASE DE DONNEES SIMPLE 



1 ANDRE DESIRE MANGER 

2 POUR MANGER IL FAUT DU PAIN ET DE LA CONFITURE 

3 INTERMARCHE POSSEDE DE LA CONFITURE 

4 LE B0ULAN6ER POSSEDE DU PAIN 

5 INTERMARCHE VEUT VENDRE DE LA CONFITURE 

6 LE BOULANGER UEUT VENDRE DU PAIN 



RAJ SONNEMENT 



COMME ANDRE DESIRE MANGER 

ET QUE POUR MANGER IL FAUT DU PAIN ET DE LA CONFITURE 

ALORS ANDRE DESIRE DU PAIN POUR MANGER 

ET ANDRE DESIRE DE LA CONFITURE POUR MANGER 

COMME ANDRE DESIRE DU PAIN POUR MANGER 
ET QUE LE BOULANGER POSSEDE DU PAIN 
ET QUE LE BOULANGER "JEUT U END RE DU PAIN 
ALORS ANDRE ACHETE DU PAIN AU BOULANGER 
ET ANDRE POSSEDE DU PAIN 

COMME ANDRE DESIRE DU PAIN POUR MANGER 
ET QUE ANDRE POSSEDE DU PAIN 
ALORS ANDRE POURRAIT MANGER 

MAIS ANDRE DESIRE DE LA CONFITURE POUR MANGER 

COMME ANDRE DESIRE DE LA CONFITURE POUR MANGER 
ET QUE INTERMARCHE POSSEDE DE LA CONFITURE 
ET QUE INTERMARCHE VEUT VENDRE DE LA CONFITURE 
ALORS ANDRE ACHETE DE LA CONFITURE A INTERMARCHE 
ET ANDRE POSSEDE DE LA CONFITURE 

COMME ANDRE DESIRE DE LA CONFITURE POUR MANGER 
ET QUE ANDRE POSSEDE DE LA CONFITURE 
ALORS ANDRE PEUT MANGER 
ET ANDRE EST SATISFAIT . 

C'EST TOUT ! 
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# INITIA TION A dBASE III Plus 
(par R. Cowart fraduit de 
I'americain par J. -P. Cano) 

Cet ouvrage permet au neophyte d'ap- 
prendre en quelques heures les comma ri- 
des de base de dBASE Hi Plus. 
II se presente sous la forme d'un tutorial 
qui guide lutilisateur pas a pas dans 
I'opprentissage des nouvelfes fonctions : 
crealion d 'en tree des donnees et mise a 
tour d'une base de donnees. La descrip- 
tion de certaines techniques evoluees 
permet de selection ner les informations 
suivont des criteres tres specifiques. 
d'organiser et de mettre a jour ropide- 
ment les fichiers et de creer des rapports 
de type professionnel, 

Cet ouvrage contient : 

— recherches elaborees en utilisont les 
fonctions et les operateurs de dBASE ; 

— differents niveaux de tris et d'indexcges ; 

— entree de commandes a partir du point 
d'attente ; 

— manipulation des nombres. des dates 
et des champs logiques ; 

— linkage de fichiers de donnees multi- 
ples ; 

— creation de mosques de saisies person* 
nalises pour I entree des donnees. 

Tous les exemples de ce livre sont traites 
sous un aspect professionel : base de 
donnees telephone, etiquettes postales, 
gestion de stocks, multif ichier s, etc.... 

Un livre broche' de 308 popes au formal J90X230. 248 F 
SY8EX, 6-8 impasse du Cur4 750 1 8 PARIS. 



• NOUVEAU DICTIONNAIRE 
dBASE III ET dBASE III Plus 
(par 0. Rentier et D. Schmit fra- 
duit de I'allemand par J. Bourdeu) 

Ouvrage de reference, ce dictionnaire 
doit essentiellement ossister lutilisa- 
teur dans son travail quotidien. 

Toutes les commandes et fonctions 
sont analysees en detail et classdes 
par categorie demploi. Chacune 
d'entre elles est decrite avec : 

— son role ; 

— la version du logiciel 6 partir de 
laquelle elle est disponible : 

— sa syntaxe complete ; 

— les conseils d'emploi oinst que 
son utilisation avec d'autres 
commandes ; 

— les differences entre dBASE III et 
dBASE HI Plus ou entre les ver- 
sions franchises et americaines ; 

— plusieurs exemples detailles 

d'utilisation. 

L'ouvrage aborde egalemenf les com- 
mandes, les fonctions reseaux et les 
utiiitaires tels que le generateur de 
tables et l editeur de liens. 

il propose enfin des annexes permet- 
tant un acces immediat oux informa- 
tions le plus souvent recherchees, tel 
les que lo syntaxe exocte d'une com- 
mande ou le role des touches de 
controle. 

Un livre txocfte de 6 i 3 pages au format i 90X230, 298 F 
SYBCX, 6-8 impasse du Curs' 75018 PARIS, 



• MS-DOS APPROFONDI 
(par J. Kamin traduit de 
I'americain par JA. Greco) 

Cet ouvrage s'adresse oux utilisateurs 
experimentes de MS-DOS (versions 2,1 
6 3.1). Une section traite les comman- 
des les moins familieres de ce systeme 
d exploitation, 

Lessentiel de l'ouvrage pour but de 
familiariser f'utilisateur avec les tech- 
niques les plus evoluees lui permettant 
d'accrottre sa productivity : configura- 
tion du systeme. de I'ecron et du cla- 
vier, elaboration de commandes per- 



sonnalisees, utiiitaires de gestion de 
disques et de mise au point, gestion 
d'imprimante, etc... 

1 1 comporte une bibliotheque de sous- 
programmes prets 6 I'emploi et 
s'impose comme I'outil indispensable 
de tout utilisateur efficoce de MS-DOS. 

L'AUTEUR : Jonathan Kamin est I'auteur de 
rmmbreox outrages sur les 
micro-ordinoteurs. II est egalemenl protessevt de 
sociologie et de musique. II est docteur de I'Univer- 
site de Princeton, 

Un livre broche de 442 'pages av format 190X230, 278 F 
SYBiX, 6-8 impasse du Cure 75018 PARIS, 



• INTRODUCTION A PASCAL 
AVEC TURBO PASCAL 
(par P. LeBeux) 

Cet ouvrage s'adresse aux debutants 
et ne requiert aucune formation prea- 
mble aux techniques de i'informatique. 
Les differents concepts du longage y 
sont presentes de faijon progressive el 
pedagogique, accompagnes de nom- 
breux exemples. 

Pour cette seconde edition, le Turbo 
Pascal est le langage de reference. Le 
livre met en valeur ses qualites intrin- 
seques de langage simple et structure. 
Le traitement grophique y est egale- 
ment aborde. 

II s agit essentiellement d un ouvrage 
de reference. 

I 'AUrBUR t Pierre Le Bevx est inginieur de 
i'Ecole Centrale et docteur en 
inlormatique de I'Universitede CalHornie. II est 
I'auteur, chez Sybex, de nombreux best-sellers. 
Specialise des langoges de programmafion, il 
est professeur a I'Universite de Technologie de 
Compiegne. 

Un line broche de 686 pages au fosmat 190X230, 243 F 
SYBEX, 6-8 impasse du Cure 75018 PARIS. 
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BD 
LH 
LB 

Cel 
mo 

AN 

a \i 
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DH 

La 
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[] 
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MA 
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UTILITA1RE 



Francois CALLET 



AMPERCOMMAND 



SYNTAXE 



Si P Applesoft est pour la majeure partie d'entre nous un Basic comportant un 
certain nombre de deficienees, le systeme dans lequel il navigue permet, heu- 
reusement, de pallier la plupart de ses manques. Lorsqu'on se penche sur cer- 
tains vecteurs de la page 3 ($0300 a $03FF), grande est notre satisfaction en 
constatant que Pun d'entre eux, le fameux Ampersand, permet d'ajouter des 
commandes nouvelles d ce bon vieil Applesoft. 

AMPERCOMMAND fonctionne aussi bien en DOS 3.3 qu'en PRODOS et met a 
votre disposition, dans sa version de base, la possibility d'afficher des fenetres 
de n'importe quelle faille (dans les limites de Pecran texte, bien sur !), a 
nimporte quel emplacement de Pecran. Le nombre des fenetres affichables 
simultanement est illimite et ne depend que de votre humeur. 

1° Reportez-vous a la Table des commandes 
(tigne 281). Inserez le texte de votre com- 
mande, si c'est la premiere que vous ajoutez, a 
la suite du pointeur de fin de commande (octet 
$00) de FENETRE. Les octets composant votre 
commande devront etre codes en ASCII bas (bit 
7 6 0) et se terminer par un $00. 

Exemple : Vous ajoutez la commande & 
EFFACE. Ecrivez ASC EFFACE' suivi 
de HEX 00. Le codage hexadecimal de EFFACE 
devra etre celui-ci : 45 46 46 41 43 45 suivi de 00. 

2° II faut maintenant indiquer a AMPERCOMMAND 
que vous avez ajoute une commande et preci- 
ser ou trouver le programme de traitement. 
Reportez-vous a la ligne 118 du source. En orri- 
vant id, AMPERCOMMAND confirme qu'il a 
bien trouve la correspondence entre ce qui est 
dans le buffer ($0200) et quelque chose dans la 
table, le registre X contenant le numero dordre 
de la commande trouvee, Reprenons I'exemple 
de & EFFACE : 

Commande 8 FENETRE. 
SiX<> 0, on passe a la 
commande n°2. 



Lo syntaxe est tres simple : & FENETRE BG,BD,LH,LB 

8G = Bord gauche de la lenetre que I on desire 

afficher. 
6D - Bord droit. 
LH - Ligne du haut. 
LB = Ligne du bas. 

Cette commande est active en mode direct ou en 
made programme. 

AMPERCOMMAND apporte egalement un support 
atous ceux qui, pratiquant lAssembleur, desirent 
ajouter des instructions supplemental res a I'Apple 
soft. On peut ainsi placer jusqu'a 256 commandes 
nouvelles, comme par exemple, & PRINT USING, & 
DHGR (Double Haute Resolution Graphique), etc. 
La longueur de la syntaxe importe peu (255 carac- 
teres maxi), les espaces, s'ils n'ont pas ete definis 
comme partie integrante de la commande, sont 
ignores lors de I'execution. 



COMMENT AJOUTER UNE COMMANDE ? 



Pour cela, servez-vous du source d AMPERCOM- 
MAND et procedez ainsi ; 
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NOERROR 



CPX 
BNE CDE2 



wmmm 
37 



JMP FENETRE ; Vers traitement de S 
FENETRE. 

CDE2 CPX £$ai ; Commande & EFFACE. 

BNE CDE3 ; SiXo 1 , on posse 5 la 

commande n°3. 
JMP EFFACE ; Vers traitement de & 

EFFACE. 

CDE3 NOP ; Autres commandes... 

Votre nouvelie commande est operationnelle... 
si le traitement existe, bien sur ! 

3° Les traitements d'erreurs se trouvent a la ligrte 
108. Si vous desirez que I'Applesolt vous ren- 
voie un de ses propres messages, mettez dans 
le registre X le code de I'erreur et retournez au 
systeme par JMP ERROR. 

4° Faites en sorte que votre traitement de com- 



mande se termine par ('instruction "JMP BASIC" 
alin de pouvoir rend re la main au systeme des 
I'execution achevee de votre nouvelie 
commande. 

La routine a ete implantee en $8000, mais peut 
etre assemblee n'importe ou en memoire, selon la 
masse de codes que vous ne manquerez pos de 
rajouter au fur et a mesure de votre developpe- 
ment. Notez qo' AMPERCQMMAND repositionne la 
valeur de HIMEM pour se proteger et qu'un RESET 
malencontreux ne le perturbe pas. Pour rendre 
actif AMPERCOMMAND, faites "CALL 32768" en 
Basic, ou "$80G0G" sous Moniteur. 

En ce qui concerne la commande & FENETRE, une 
courte presentation valant mieux qu'un long dis- 
cours, tapez le programme Basic qui suit et 

re 9 QrdeZ - Francois GAL LET. 



1 

2 
3 
4 
5 
6 
7 

e 

9 
10 
LL 
12 
13 
14 
15 
16 
17 

ie 

19 

20 
21 
22 
23 
24 
25 
26 
27 
2B 
29 
30 
31 



* # 

* AMPERCQMMAND * 

* * 
#*#*#*#*********##**#-* 

S 
# 
* 

AM PER EQU *03F5 
BASCALC EQU $FBC1 



AMPERCQMMAND 



a 6te assemble par Pro- 
CODE, mais un autre assem- 



bleur fera I'affaire. Si vous ne disposez pas de cet outil, 
contentez-vous de taper les codes de la page 44. 



Auteur : Francois 6ALLET 



BASIC 


EQU 


$D995 


BTM 


EQU 


$23 


CH 


EQU 


$24 


CHRGET 


EQU 


$00B1 


HOME 


EQU 


$FC5B 


CV 


EQU 


$25 


ERROR 


EQU 


$D412 


GETBYTC 


EQU 


$E6F5 


HIMEM 


EQU 


$0073 


PAGE1 


EQU 


SC054 


PAGE IX 


EQU 


$C055 


VTABZ 


EQU 


$FC24 


WDTH 


EQU 


$21 


WNDLFT 


EQU 


$20 



sAdresse du vecteur Ampersand 
:Calcule 1 'adresse de base dans 1 '6cran texte 
sd'une Tigne dont le numero est dans 1'accu. 
;Retour a 1 ' interpreteur pour la prochaine ms- 
;-t ruction 

:Borne basse de la fenetre de texte 
; Stock age du HTAB 

jlncremente d'abord TXTPTR ($B8,$B9) . Retourne 
;dans le registre "A" la valeur de 1 'octet dont la 
jposition dans le bu-f-fer ($0200) est donneepar 
; TXTPTR 

; Efface 1 'ecran 
;Stockage du VTAB 

;Traitement de I'erreur dont le code est dans X 
; Con vert it une expression num£rique (in-ferieure A 
;256) en entier . Au retour , X contient la valeur 
; Ad r esse la plus el evee de la RAM 
;Commutateur 'Ecran texte memoire principal e' 
;Commutateur 'Ecran texte memoire aux ilia ire' 
;Positionne le curseur en fonction de CV 
;Largeur de la fenetre de texte 
;Marge gauche de la fenetre de texte 
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32 


WNDTOP 


EQU 


$22 


; haute 


33 


* 










34 






ORG 


$8000 




35 


* 










36 


i 


Initialisation du vecteur Ampersand avec 1 'adresse de debut d'AMPERCDE 


37 


i 










38 


DEBUT 


LDA 


£< AMPERCDE 




39 






STA 


AMPER+1 




40 






LDA 


£> AMPERCDE 




41 






STA 


AMPER+2 




42 


+ 










43 


1 


Protection du programme par revectorisat ion de HI MEM 


44 


* 










45 






LDA 


£<DEBUT 




46 






STA 


HI MEM 




47 






LDA 


£ >DEBUT 




48 






STA 


HIMEM+1 




49 

50 


* 




RTS 






51 


* 










52 


* 


Initialisation de 1' 


adresse de depart de la table des commandes 


53 


* 










54 


AMPERCDE LDA 


£<C0MMAND 




55 






STA 


$19 




56 






LDP 


£>CQMMAND 




57 






STA 


$IA 




58 


* 










59 


* 


La 


syntaxe de la commande est-elle correcte ? 


60 


* 










61 






LDX 


£$00 


;Compteur de commande (256 maxi) 


62 






DEC 


$B8 


;A cause du CHRGET qui suit 


63 












64 






LDA 


*B8 




65 
66 






STA 
LDA 


$1B 
$B9 




67 






STA 


$1C 




68 


# 










69 






LDY 


£$FF 




70 


L00P1 


INY 






71 


L00P4 


LDA 


($19) ,Y 


;Test de -fin de commande (pointeur nul ) 


72 






BED 


NOERROR 


;Si fin , on poursuit 1 


73 






JSR 


CHRGET 


;Dn prend un caractere contenu dans le buffer... 


74 






CMP 


($19) ,Y 


;,,.et on compare a la syntaxe de la commande 


75 






BED 


L00P1 


;Si les deux caract£res sont equivalents , on 


76 










:boucl e , sinon . . . 


77 


* 










78 


* 


Preparation de la reinitialisation et test d'erreur 


79 


* 










BO 


L0DP2 


INY 






81 






LDA 


($19) ,Y 


:Fin de commande ? 


82 






BNE 


L00P2 


;On boucle tant que 1 'on n'y est pas... 


83 






INY 






84 






LDA 


C$19) ,Y 


;Fin de table ? 



TREMPLIN MICRO 



85 BEQ SYNTAX ;Si oui , il y a une erreur de syntax e ! 

B6 * 

87 * 

B8 # Reinitialisation de t'adresse de debut de la table des commandes pour 

89 * la prise en compte d'une nouvel 1 e commande . 

90 * 

91 LD0P3 INC $19 

92 BNE NO ZERO 

93 INC $1A 

94 NOZERO DEY 

95 BNE L0OP3 

96 * 

97 * On remet le pointeur de CHRGET a son ancienne valeur 

98 * 

99 LDA $1B 

100 STA $B8 

101 LDA $1C 

102 STA $B9 

103 * 

104 INX ;Commande suivante 

105 * 

106 JMP L00P4 

107 * 

108 * Traitement de 1 'erreur rencontree (d'autres types sont possibles selon 

109 * la commande) 

110 * 

111 SYNTAX LDX £$10 s "SYNTAX ERROR" 

112 JMP ERROR 

113 * 

114 ILLEGAL LDX £$35 ; " ILLEGAL QUANTITY ERROR" 
US JMP ERROR 

116 * 

117 # 

118 * Quelle est la commande 7 

119 * 

120 NOERROR CPX £$00 

121 BNE CDE2 

122 JMP FENETRE 

123 CDE2 NOP :Autres commandes (256 en tout) 

124 * 

125 * Commande : & FENETRE CG,CD,LH,LB 

126 * - 

127 * Evaluation de 1 'expression qui suit la commande "& FENETRE" . 

128 * 

129 FENETRE JSR GETBYTC 

130 CPX £79 

131 BCS ILLEGAL 

132 STX COLMIN 

133 JSR GETBYTC 

134 CPX £80 

135 BCS ILLEGAL 

136 STX COLMAX 

137 JSR GETBYTC 

I 
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138 






CPX 


£23 


139 






BCS 


ILLEGAL 


140 






STX 


LINMIN 


141 






JSR 


SETBYTC 


142 






CPX 


£25 


143 






BCS 


ILLEGAL 


144 






STX 


LINMAX 


145 


# 








146 


* 


On §vite 


que la borne gauche et la borne haute + 1 


147 


ft 


soit 


respecti vement superieure on egale a la borne 


148 


* 


basse . 




149 


ft 








150 






LDA 


COLMIN 


151 






CMP 


COLMAX 


152 






BCS 


ILLEGAL 


153 






LBA 


LINMIN 


154 






INA 




155 






CMP 


LINMAX 


156 






BCS 


ILLEGAL 


157 


* 








158 






JSR 


CADRE ; ENF I N !!! 


159 


ft 








160 






JMP 


BASIC ;Prochaine commande Basic 


161 


ft 








162 


* 








163 


* 


Sous 


programmes : CADRE (Trac£ d'un cadre avec et*< 


164 


* 








165 


* 








166 


* 


Sauvegarde de la position courante du curseur 


167 


# 








168 


CADRE 


LDA 


CV 


169 






PHA 




170 






LDA 


CH 


171 






PHA 




172 










173 


* 


E-ffacement de la fenetre 


174 


* 








175 






LDA 


COLMIN ;NouvelIe marge gauche 


176 






STA 


WNDLFT ; . . . 


177 






LDA 


COLMAX ;Nouve?1e largeur 


178 






SEC 




179 






SBC 


WNDLFT COLMAX - WNDLFT = LARGEUR 


180 






STA 


WDTH ; . . . 


181 






LDA 


LINMIN ;Nouvelle marge haute 


182 






STA 


WNDTOP ; . . . 


183 






LDA 


LINMAX ;Nouvelle marge basse 


184 






STA 


BTM s , . . 


185 






JSR 


HOME -Enfin ! 


186 


* 








187 






STZ 


WNDLFT ; Marge gauche standard 


188 






STZ 


WNDTOP ;Marge haute standard 


189 






LDA 


£$50 ; Largeur standard 


190 






STA 


WDTH ; . . .de la fenetre 
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r. 



191 




LDA 


£$18 


;Marge basse standard 


192 




STA 


BTM 




193 


ft 








194 


* 


Trace du 


cadre de la 


f enetre 


195 










196 




LDA 


£$4C 


;Code de 1 ' icone pour trait horizontal 


197 




STA 


[CONE 




198 




LDA 


LINMIN 


;Ligne du titre de la f enetre a tracer 


199 




STA 


LIGNE 


f ■ ■ ■ 


200 




JSR 


HORIZ 


; — > initialisation et trace 


201 




LDA 


£*DF 


;Code de 1 'icone pour trait horizontal 


202 




STA 


ICONE 




203 




LDA 


LINMAX 


;Ligne inferieure 


204 




DEA 






205 




STA 


LIGNE 


p ■ * . . 


206 




JSR 


HORIZ 


; — > initialisation et trace 


207 


# 








208 




LDA 


£*5A 


;Code de 1 'icone pour verticale gauche 


209 




STA 


ICONE 




210 




LDA 


COLMIN 


;Col onne gauche 


211 




STA 


COLONNE 




212 




JSR 


VERTIC 


; — > initialisation et trace 


213 




LDA 


fc$5F 


:Code de I'icone pour verticale droite 


214 




STA 


ICONE 




215 




LDA 


COLMAX 


iColonne droite 


216 




STA 


COLONNE 




217 




JSR 


VERTIC 


: — > initialisation et trace 


218 


* 








219 


+ 


Rest aurat ion de 1 a p 


osition du curseur 


220 


* 








221 




PLA 






222 




STA 


CH 




223 




PLA 






224 




STA 


CV 




225 




JSR 


VTABZ 


;Placement du curseur a 1 'ecran 


226 


* 








227 




RTS 




; Ret our d'appel 


228 










229 


+ 








230 


K 


Sous programme : HORIZ (trace des horizontal es du cadre) 


231 


If 














232 


ft 








233 


HDRIZ LDA 


COLMIN 


;Colonne de gauche... 


234 




INA 




: . . .+1 . . . 


235 


L00PH PHA 




:0n sauve pour traitement suivant 


236 




JSR 


COM. LOG 


iMemoire principale ou au;<iliaire ? 


237 




LDA 


LIGNE 


;N' de 1 igne. . . 


238 




JSR 


BASCALC 


: . . .et son ad r esse a 1 'ecran 


239 




LDY 


C0L40 


;N" de col onne en 40 colonnes 


240 




LDA 


ICONE 


:Code du caractere a afficher 


241 




STA 


(*2B) ,Y 


; — > Af-fichage 


242 




PLA 




;0n restaure la col onne... 


243 




INA 




;...+! 



A7 
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244 
245 
246 
247 
248 
249 



266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
28 J 
2B2 
283 



* 
* 



CMP COLMAX jEst-ce que I 'on a atteint la borne a droits ? 

BMI LOOPH ;Si ce n'est pas le cas , on boucle 

BIT PAGE! s.,.au cas ou ! 

RTS ;Sinon , retour d'appel 

Sous programme : VERTIC (trace des vertical es du cadre) 



250 
251 


* 








252 


VERTIC 


LDA 


COLONNE 


;Colonne du trace... 


253 




JSR 


COM. LOG 


I . . .en PAGE 1 ou IX ? 


254 




LDA 


LINMIN 


;Ligne de depart . . . 


255 


LOOPV 


PHA 




:Un sauve 


256 




JSR 


BASCALC 


; . . .et son adresse a 1 'ecran 


257 




LDY 


C0L40 


;N" de colonne en 40 colonnes 


258 




LDA 


I CONE 


•Code de l'icone a afficher 


259 




STA 


($28) ,Y 


; — > Affichage 


260 




PLA 




;0n restaur© la 1 igne de trace 


261 




INA 






262 




CMP 


LINMAX 


;Derniere 1 igne ? 


263 




BMI 


LOOPV 


;Non al ors on recommence 


264 




BIT 


PAGE 1 


; . . .au cas ou ! 


265 




RTS 




;Si oui , alors retour d'appel 



* 
* 

* 
* 

CDM.LOG 



Sous programme : CDM.LOG 



(commute en PAGE 1 si 1 
ou en PAGE IX si el 1 e 



a colonne est 
est paire) 



impaire 



ROR 

BCS 
BIT 



MEM 
C0NT4 



BIT 
ROL 
LSR 
STA 
RTS 



MEM 

PAGE 1 X 
C0NT4 
PAGE 1 



C0L40 



Un decal age a 
poids Taible 
S'il vaut 1 , 
S' i 1 vaut . 



droite pour tester le bit de 



le nombre est impair (Lapalisse) 
le nombre est pair — > Page IX... 
. . .et on saute la commutation en Page 1 
Commutation en Page 1 si nombre impair 
□n restitue le bit de droite... 
...on decale a droite pour diviser par 2 
et on stocke le resul tat (en 40 colonnes) 
Retour d'appel 



* 
* 



Tabl e des commandes 



(la longueur du texte de 
quel conque) 



a commande est 



284 COMMAND ASC 'FENETRE' ;Syntaxe de la commande & FENETRE (bit 7 a 0) 

285 HEX 00 ;Pointeur de -fin de commande 

286 * 

287 HEX 00 ; Point PUT de Tin de la table des commandes 

288 * 

289 * 

290 * Stockage de parametres 

291 * 

292 * 

293 C0L4O HEX 00 ^Memorise 1 'abcisse comprise entre et 39 

294 COLMAX HEX 00 ;Colonne droite de la Tenetre 
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295 


COLMIN 


HEX 


00 


;CDlonne gauche tie la fenetre 


296 


COLONNE 


HEX 


00 


;Utilise par VERTIC 


297 


ICONE 


HEX 


00 


;5tockage du code de 1 'icone a 


298 


LIGNE 


HEX 


00 


;Util ise par HORIZ 


299 


LINhAX 


HEX 


00 


;Ligne haute de la fenetre 


300 


LINMIN 


HEX 


00 


;Ligne basse de la fenetre 



AMPERCDE.CA$80CKU$0177 


























8000 : 


A9 


13 


8D 


F6 


03 


A9 


80 


8D 


F7 


03 


A9 


00 


85 


73 


A9 


80 


1FBC 


5i vous ne 


8010: 


85 


74 


60 


A9 


66 


85 


19 


A9 


81 


85 


1A 


A2 


00 


C6 


B8 


A 5 


CI 94 


posseuez pas ce 


B020 : 


88 


85 


IB 


A5 


B9 


85 


1C 


AO 


FF 


C8 


Bl 


1 9 


FO 


30 


20 


Bl 


B679 


precieux; outil 


8030: 


00 


Dl 


19 


F0 


F4 


C8 


Bl 


19 


DO 


FB 


C8 


Bl 


1 9 


FO 


1 5 


E6 




qu'est un bon 


8040: 


19 


DO 


02 


E6 


1A 


88 


DO 


F7 


A5 


1 B 


85 


B8 


A5 


1 C 


85 


B9 


8A36 


assembleur , 


8050: 


E8 


4C 


2A 


80 


A2 


10 


4C 


1 2 


D4 


A2 


35 


4C 


1 2 


D4 


EO 


00 


E7AB 


contentez-vous 


Ftn^n s 

OU UU i 


nn 


m 

U w 


4P 






EA 


20 


F5 


E6 


EO 


4F 


BO 


EC 


8E 


71 


81 


FA35 


de recopier ces 


8070: 


20 


F5 


E6 


E0 


50 


BO 


E2 


BE 


70 


81 


20 


F5 


E6 


EO 


17 


BO 


56DE 


codes, puis 


8080 : 


D8 


8E 


76 


81 


20 


F5 


E6 


EO 


19 


BO 


CE 


8E 


75 


81 


AD 


71 


BF71 


sauvez voire 


8090: 


81 


CD 


70 


81 


B0 


C3 


AD 


76 


81 


1A 


CD 


75 


81 


BO 


BA 


20 


74BD 


routine sur 


80A0: 


A5 


80 


4C 


95 


D9 


A5 


25 


48 


A5 


24 


48 


AD 


71 


81 


85 


20 


8E46 


disquette. 


80B0: 


AD 


70 


81 


38 


E5 


20 


85 


21 


AD 


76 


81 


85 


22 


AD 


75 


81 


AC6F 




80C0: 


85 


23 


20 


58 


FC 


64 


20 


64 


22 


A9 


50 


85 


21 


A9 


18 


85 


960B 




80 DO : 


23 


A9 


4C 


8D 


73 


81 


AD 


76 


81 


8D 


74 


81 


20 


14 


81 


A9 






80EO: 


DF 


8D 


73 


81 


AD 


75 


81 


3A 


8D 


74 


81 


20 


14 


81 


A9 


5A 






80F0: 


8D 


73 


81 


AD 


71 


81 


8D 


72 


81 


20 


35 


81 


A9 


5F 


8D 


73 






8100: 


81 


AD 


70 


81 


8D 


72 


81 


20 


35 


81 


68 


85 


24 


68 


85 


25 


0998 




8110: 


20 


24 


FC 


60 


AD 


71 


81 


1A 


48 


20 


55 


81 


AD 


74 


81 


20 


7759 


N'oubliez pas 


8120: 


CI 


FB 


AC 


6F 


81 


AD 


73 


81 


91 


28 


68 


1A 


CD 


70 


81 


30 


BC22 


que la 


8130: 


E7 


2C 


54 


CO 


60 


AD 


72 


81 


20 


55 


81 


AD 


76 


81 


48 


20 


6B29 


verification est 


8140: 


CI 


FB 


AC 


6F 


81 


AD 


73 


81 


91 


28 


68 


1A 


CD 


75 


81 


30 


A227 


franchement 


8150: 


ED 


2C 


54 


CO 


60 


6A 


80 


05 


2C 


55 


CO 


80 


03 


2C 


54 


CO 


4880 


facilitee en 


8160: 


2A 


4A 


8D 


6F 


81 


60 


46 


45 


4E 


45 


54 


52 


45 


00 


00 


00 


2A5A 


utilisant 


8170: 


00 


00 


00 


00 


00 


00 


00 




















0000 


SIGNATURE. 



CONSEILS AUX DEBUTANTS : 



Rappelons que, pour taper un programme en longage machine (sans assembleur), j| suffit d'aeceder au 
AAoniteur par un CALL - 151, puis de taper textuellement chacune des lignes ci-dessus. Lorsque cette 
tache — 6 combien epuisante — est terminee, sortir du Moniteur par CTRL-C (touche CTRL + C), puis 
taper le BSAVE NOM,A$7GO0,L$01FC indique en tete de programme. 

PRECAUTION : Avant de rentrer les codes d'un programme, s assurer que I on a bien acces au DOS ou a 
ProDOS en essayant d obtenir le catalogue de la disquette. Eventuellemenf (cela 
n'engage a rien !) essayer de sauver la routine avant meme de I'avoir tapee. Rien n est plus desagreable que 
cJ e se retrouver devant un ecran rempli de codes, apres vingt minutes de frappe laborieuse-.- sans le DOS ! 

Attention ! Ne tapez surtout pas les valeurs indiquees en couleur, a la fin de cheque ligne : elles sont desti- 
nees aux utilisateurs de la disquette SfGNATURE et permettent de local iser tres rapidement les eventuelles 
erreurs de saisie (lire, a ce sujet le bas de la page precedente). ■ 
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26 
27 

lb 

2v 

30 

51 

32 
33 

TR 



AMPERCDE.DEMO 



10 REN *** DEMO tflPERCtmWD *** 
20 : 

30 C* = CHR$ (4) 

40 PRINT D$; "BLOAD WERCDE.C" 

50 CALL 32768! REM — Initialisation — 

60 HOME : LIST 10 - 180 

70 4 FENETRE0,76,3,7 

80 VTAB 5: HTAB 3: PRINT "Ct programme , 

tCrit en Assembleur , a pour "; 
90 PRINT "fonction de vous permettre de' 
100 VTA8 6: HTAB 3: PRIhfT "tracer des fene 

tres.,." 
HO GOSUB 1000 
120 & FMTRE30|71 f *.fl3 
130 VTAB 8: HTAB 33: PRINT "...que vous po 

urrez dHinir s implement" 
HO VTAB 9: HTAB 33: PRINT "en tapant une 

nouvette command* dont" 
150 VTAB 10; HTAB 33: PRINT "la syntaxe es 
t i" 

160 VTAB 12: HTAB 33: PRINT "--> FENETRE 

BG,6D,LH,L8" 
165 GDSUB 1000 
170 & FENETRE5,26,9,17 
180 VTAB 11: HTAB B: PRINT \..ou :" 
190 VTAB 13: HTAB 8s PRINT "BG = Bord Qauc 
he" 

200 "/TAB 14: HTA8 8: PRINT "80 = Bord droi 
f 

210 VTAB 15: HTAB 8: PRINT 
haut° 

220 VTAB 16: HTAB 6: PRINT 

bas" 
230 GDSUB 1000 
240 4 FENETRE26, 77, 13,23 
250 VTAB 15: HTAB 29: PRINT "La corrroande o 

tut 5' employer en mode direct on en" 
260 VTAB 16: HTAB 29: PRINT 'mode program* 

e . Elli peut etre suivie par une" 
270 VTAB 17: HTAB 29: PRINT -autre mstruc 

fion Basic 

280 VTAB 19: HTAB 29: PRINT "ATTENTION : 1 

a partie d'ecrari recouverte par la" 
290 VTAB 20: HTAB 29: PRINT "fenetre sera 

dif mi 1 1 vement perdue ." 
300 VTAB 21: hTAB 29: PRINT "Si vous d$sir 

ez le retrouver , ut< 1 i sez une" 
310 'vTAB 22: HTAB 29: PRINT "sauvegarde d' 

$cran ." 
320 GOSUB 1000: GOSUB 900 
33C & FENETRE7,54,3,10 



"LH = Ligne du 
"LB = Ligne du 



003A 
B3A4 
BBD5 
7196 
2050 
1943 



98A1 



0C0F 



EB4F 
5971 



B9D3 

DD72 
5971 
E2DB 

El IB 

03E1 



)B1F 



EB79 

36D8 
40F4 



340 VTAB 5: HTAB 10: PRINT "II est importa 

nt de neter que tet ut i I i tai re" 
350 VTAB 6: HTAB 10: PRINT "a $t$ e'er it po 

ur ceux d'entre vous possldant" 
360 VTAB 7: HTAB 10: PRINT "un He* , un I 

Ic ou un II GS 
370 VTAB 8: HTAB 10: PRINT "AMPERCOWiAND f 

onctionne en B0 colonnes , ce" 
3B0 VTAB 9: HTAB 10: PRINT "qui est tous d 

e meme plus aor Gable 
390 GOSUB 1000 
400 4 FENETRE12, 68, 10,16 
410 VTAB 12: HTAB 15: PRINT "Si vous conna 

issez 1 'Assembleur et que vous posse'di 

ez' 

420 VTAB 13; HTAB 15: PRINT "de quoi cr*er 
un source <ProCODE> , AMPERCOrttAND vo 
us* 

430 VTAB 14: HTAB 15: PRINT "permet de raj 

outer de nouueHes commandes , qui" 

440 VTAB 15; HTAB 15: PRINT "associe'es a 1 

'Ampersand , ennchiront 1 'Applesoft . 
■ 

450 GOSUB 1000 

460 I FENETRE2, 42, 17,20 

470 VTAB 19: HTAB 5: PRINT "Et maintenant 

, un peu de mouuement 1 " 
480 GOSUB 900 
490 HOME 

500 FOR K = 1 TO 
510 BG = 0:BD 

1 TO 10 
520 BG = BG + 
= LB - 1 : 



10 

= 79:LH ■ 0:LB = 23: FOR N = 



lsBD = BD - 1 : LH = LH + 1:LB 
& FENETRE8G,BD,LH,LB: NEXT 
530 FOR TEMPO = TO 500: NEXT I NEXT K 
540 GOSUB 900 
660 FENETREB, 71, 17,22 
670 VTAB 19: HTAB lis PRINT "Bonne orogram 

nation , et a bi entot . . »" 
680 VTAB 21: HTAB 50: PRINT 'Francois GALL 
ET" 

690 GOSUB 1000: GOSUB 900: HCME 
700 END 

900 & FENETRE25,52,10,14 

910 VTAB 12: HTAB 29: IMMERSE : PRINT "APP 

UYEZ SUR UNE TOUCHE" ; NORMAL 
920 VTAB 13: HTAB 29: IWERSE : PRINT "POU 

R CCNTINUER..,";: NORML 
930 GET T$: PRINT : HOME : RETURN 
1000 FOR TEMPO = TO 5000: NEXT TEMPO 
1010 RETURN 



0B33 
8DF1 

FC7A 

1F0A 
5971 
69D5 

055C 

D2A0 
FF0F 



7819 
5971 
E79E 

1804 
2349 
2F97 
ECEF 

B280 

B199 

2349 
91A8 



995F 



63BJ 
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MATERIEL 



Jean-Paul VERPEAUX 



INTERFACE MIDI 

pour Apple lie, lie, lh et CS 



L INTERFACE MIDI 

MIDI esl I'Acronyme de Musical Instrument Digital Interface. 
Cette inteHace permet d'interconnecter des syntheiiseurs, 
boites a rythmes, et autres instruments ayont adopte les 
normes MIDI. Certains ordinoteurs a vocation musicale ont 
deja leur interface MIDI integree ; comme ce nest malheu- 
reusement pas le cas des divers ordinateurs Apple, nous 
ovons decide d'y rem£dier en vous proposant les plans d'une 
interface MIDI simple et bon morche\ 
Choque interface MIDI comprend un emetteur (prise OUT) et 
un recepteur (prise IN) et une ou plusieurs prises THRU char- 
gees de recopier le signal d entree pour l adresser a d r autres 
instruments cables en chame. Les normes MIDI prevoienf 
entre autres que I'etage d'entree soit protege par un 
photocoupleur. 
HARDWARE. 

L'interface MIDI est en fait une carte serie un peu partial- 
liere dans le sens quelle travaille a une vitesse inhabituelle- 
ment elevee : 31 ,25 KBauds, 

Le cceur du montage est constitue principal ement d'un con- 
vertisseur serie/ parollele et vice- versa oppele UART (Uni* 
versa! Asynchronous Receiver Transmitter) ou encore ACIA. 
Les normes MIDI imposent de travoiller avec une boucle de 
couront de I'ordre de 5mA. Les niveaux logiques sont 
representee par ce courant circulant dans les cables de liai- 
son. Inversemenl, les niveaux logiques 1 correspondent a 
des absences de courant, 

Un message MIDI comprend 8 bits, Ces bits sont transmis 
avec un bit de start et sont suivis d un bit de stop, soit un 
total de 10 bits par information a transmettre. Choque bit 
transmis dure 32 microsecondes ; i! loudra done 320 microse- 
condes pour ironsmettre un octet. 
Le montage que nous vous proposons peut etre realise de 
plusieurs facons : 

— Soit sur une carte d'etude, enfichable dans un des slots 
de I'Apple. 

— Soit sur ur circuit imprime ou une carte d'etude, exterieure 6 
I 'Apple et reliee a ce dernier par un connecteur 53 contacts 
et un cable en noppe de cowrie longueur. Cette derniere 
solution est plus pratique et plus esth£tique. ■ 



UTILISATION DC L'INTERFACE 

^interface MIDI comporte 4 registres : 

— Registre d'emission, 

— Registre de reception, 

— Registre de controle, 

— Registre de statut. 

Ces 4 registres seront vus par I'Apple comme 
deux adresses memoire successives. Deux adres- 
ses suff isent, car chacun de ces registres ne peut 
qu'etre lu ou ecrit (jamais les deux), ainsi : 

• Controle et Statut se partagent I'adresse 
C0A8. 

■ Emission et Reception se partagent I'adresse 
C0A9. 

Ces deux valeurs arbitrages ont ete choisies pour 
rendre notre interface compatible avec les logi- 
ciels MIDI du commerce qui fonctionnent avec des 
interfaces MIDI Yamaha ou Passport-Design. 
Cette compatibility impose egalement que l'inter- 
face MIDI soit placee dans le slot 2. 

Pour utiliser l'interface, il faut tout d'abord la pro- 
grammer conformement aux normes MIDI 
(vitesse de transmission, nombre de.bits de stop, 
etc.). Pour cela, on doit ecrire successivement 
deux valeurs dans le registre de controle : 

Effectue la remise a zero de I'ACIA, 
done de l'interface. 



LDA § 03 
STA CGA8 
Ensuite : 
LDA § 15 
STA C0A8 

Ou encore : 

LDA § 95 
STA C0A8 



15 Hexa, soit 0001 0)01 en binaire. 



95 Hexa, soit 



en binaire. 

(suite page 48} 
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J.-P.VERPEAUX(1987) 
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Le premier cos correspond a la programmation 
standard de I'interface, utilisee surtout pour 
emettre des codes. Dans le deuxieme cas r I'ACIA 
est programme pour creer des demandes d'inter- 
ruptions, sur la ligne IRQ, lorsque son registre de 
reception est plein. Cest tres pratique, voire 
meme indispensable lorsque I'Apple doit rece- 
voir les codes MIDI emis par un instrument 
peripherique. 

NQTA : La programmation peut aussi se faire 
en Basic, en pokant les valeurs decl- 
moles correspondent 6 § 03, § 15 ou § 95, a 
I'adresse 4932G. 

Ensuite, il vous reste a envoyer vos messages, 
ou lire ceux qui arrivent, en ecrivant ou en lisant 
a Tad res se C0A9. Remission de codes MIDI peut 
aussi se faire en Basic, en pokant a I'adresse 
49321 les valeurs desirees. 

Par centre, le Basic ne permet pas de lire les 
codes qui arrivent, ces derniers se presentant 
dans I'ACIA a une cadence trop elevee. En recep- 
tion, te langage machine est indispensable. 



EMISSION DE COPES 

En theorie, il suffit de faire ; 

LDA § xx ; xx represente le code a envoyer. 
STA C0A9 

En pratique, avant d'emettre un code, il faut 
s'assurer que la transmission du code precedent 
est entierement achevee (souvenez-vous qu'un 
code met 320 microsecondes pour etre entiere- 
ment transmis). 

Cela impose une petite routine de test ; en voici 
un exemple simple : 

LOOP LDA C0A8 ; On lit le registre de statut. 

AND § 02 ; Test du bit 1 de ce registre 
(registre emission encore 
plein). 

BEQ LOOP ; On boucle lant que le 
registre d'emission n'est 
pas vide. 

READY LDA § xx ; xx = valeur a emettre. 
STA C0A9 ; Emission du code XX, 
RTS 



RECEPTION DES COPES 

Les codes recus sent r£ceptionnes par le registre 



de reception qui peut etre lu a I'adresse C0A9 
(meme adresse que le registre d'emission). On 
peut savoir si un code est entierement arrive en 
testant le bit 1 du registre de statut (en C0A8) ; 
d'ou la routine de reception suivante ; 

LOOP LDA C0A8 ; Lecture du registre de sta- 
tut. 

AND § 01 ; Test du bit (registre 
reception plein ?). 

BEQ LOOP : Message pas encore 
arrive : on boucle. 
LIT LDA C0A9 ; On lit lecode receptionne. 

STA AD ; On le range a I adresse 
AD par exemple. 

RTS 

En reception, on peut receptionner les codes soit 
en scrutant en permanence le registre de statut 
(son bit 1), ou mieux encore, en detournant les 
interruptions IRQ pour ranger les codes chaque 
fois qu'ils se presentent. Cette derni&re solution, 
plus compliquee mais plus efficace sera vue dans 
un autre article. Nous vous indiquons toutefois, 
si vous voulez 1'experimenter, qu'il faut pour 
cela programmer I'ACIA avec la valeur § 95 
(Hexa) dans le registre de controle (C0A8). 
Ensuite, au lieu de tester le bit du registre de 
statut, on testera le bit 7 pour s'assurer que 1'IRQ 
demandee est bien due a notre interface MIDI 
qui vient de receptionner un code. 

"Midi" et 'Technique des 

J. -P. 
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synthetiseurs", par 
VERPEAUX, Editions Musicom, chez tous les 
bons marchands de musique. 



REGISTRE DE STATUT 

Ce registre se portage I'adresse C0A8 avec le 
registre de controle de I'ACIA ; il ne peut quetre 
lu, tandis que le registre de controle ne peut 
quetre ecrit. 

Chacun des bits de ce registre sert de drapeau et 
est mis a 1 dans des circonstances bien precises. 

BIT Indique que le registre de reception est plein. 
BIT 1 Indique que le registre d'emission est vide. 

BIT 4 Indique une erreur de cadrage (par exemple 
lorsque I'horloge des deux interfaces qui dia- 
logues n'est pas identique). 

BIT 5 Surcharge du recepteur : st un mot regu n'est 
pas lu assez rapidement, I'apparttion dun 
nouveau message entrame une surcharge du 
recepteur. 
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BIT 7 Interruption demandee par I'ACIA. 

Les outres bits correspondent a des fonctions 
non utilisees par le systeme MIDI ; I'ACIA 6850 
pouvant avoir d'autres utilisations (par exem- 
ple : modem). 

REGISTRE DE CONTROLE 

Ce registre sert a programmer I'ACIA, conformed 
ment aux normes MIDI. En ecrivant la valeur 
binaire 1 1 dans les bits G et 1 , on remet a zero 
I'ACIA ; d'ou la valeur 03 utilisee pour la RAZ de 
['interface. 

Les bits et 1 servent ensuite a definir le facteur 
de division interne de I'ACIA. Pour obtenir une 
frequence de 32 J 25 KHz, l oscillateur a quartz 



de 2MHz est d'abord divise par 4 par le CD 4040 ; 
ce qui donne du 500 KHz, puis cette valeur est 
ensuite divisee par 16 par les circuits internes de 
I'ACIA. La division de Prior loge par 16 est obte- 
nue en mettant les bits et 1 dans les etats 
suivants : 

sit a = i bit i = a 

La figure binaire 101 pour les bits 4 r 3 et 2 
impose a I'interf ace de travailler avec des mots 
de 8 bits et un seul signal de stop. 
L'ACIA, avec cette valeur, n'effectue pas non 
plus de controle de partte. 

Les bits 5 et 6 ne servent que lorsque I'ACIA est 
employe au sein d'un modem. 
Enfin, le bit 7 de ce registre permet a I'ACIA de 
demander des interruptions lorsqu'il reooit des 
messages MIDI, 



LISTE DES COMPOSANTS 



IC 1 SN 74LS04 Sextuples inverseurs TTL LS 

IC 2 SN 74LS04 

IC 3 6N 138 Photo-coupleur rapide 

IC4 CD 4040 Compteur-DiviseurC.MOS 

IC 5 6850 ACIA 

Rl a R9 Resistances 220 Ohms, 1/4 Watt, 10% 

R10 Resistances 270 Ohms r 1/4 Watt, 10% 

Rll aR12 Resistances IKOhms, 1/4 Watt, 10% 

CI Condensateur Mylar 0,1 MF, 63 Volts 

C2 Condensateur Tantale47MF, 10 Volts 

C3 Condensateur 2,2 NF, 63 Volts. 

Q Quartz de 2000,00 KHz (soit 2 MHz) 

5 prises DIN 5 broches/180°/FEMELLES/Socles 

D 1 DIODE au Silicium genre 1 N 41 48 ou 1 N91 4 [K = Cathode) 



Une carte d'etude pour montage electronique, enfichable dans un des 
slots de I'Apple. 

Eventuellement ; supports a souder pour les 5 circuits integres du 
montage. ■ 
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Ces photos se rapportent 
au prototype et ne sont pas 
rigoureusement conformes 
au schema electrique que 
nous vous presentons 
page 47. 
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LES REPONSES PRATIQUES 
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INTERFACE 
MIDI 

lean-Paul VERPEAUX 



OFFREZ-VOUS L'OUVRAGE 
DE J.-P. VERPEAUX 

Grace au systeme MIDI, tous tes instruments com- 
portant une prise adequate sont interconnecta- 
bles. Mais encore faut-il savoir comment utifiser 
cette interface,., sans pour autant chercher MIDI a 
quatorze heures ! 

Dans ce petit Mvret (preface par Thierry Frebourg, 
Redacteur en Chef de Guitares et claviers), Jean- 
Paul VERPEAUX eclaire notre lanterne avec des 
explications simples et des exemples pratiques 
parlants. 

En fait r apres avoir lu cet ouvrage, vous saurez 
tout (ou presque) sur ce demon de Midi 1 Nestor. 

* 36 pages. Editions JOSEPH BEHAR, chei tes marcbands d 'instruments de musique. 



Lc 
d, 

9C 
m 

In 
ce 
pe 
ce 
pe 
co 
Mi 



CC 

Af 
ca 
do 
so 
CS 
stc 

CC 

Af 

SIM 

sei 
op 
vai 
inv 
res 



50 



GUY-HACHETTE 



TRi 



Marcel COTTINl 

LES ROUTINES 

d'entree/sortie d'un caractere 

LA ROM MONITOR I 



La ROM du Monitor comporte un certain nombre 
de routines et sous-programmes. C'est un Ian- 
gage d part entiere qui regroupe des program- 
mes systeme. Au niveau le plus elementaire se 
trouve le microprocesseur qui est associe a un 
certain nombre de circuits et d'interfaces pour 
peripheriques. Le langage elementaire du pro- 
cesses etant le langage machine, ce dernier 
permet de fa ire fonctionner les circuits de facon 
coherente, Une des routines elementaires du 
Monitor nous permet de verifier; visualiser ou 



modifier directement le contenu des memotres 
ou des registres du processeur. D'autres fonc- 
tions du Monitor existent, entre autres les routi- 
nes d'entree et de sortie d un caractere. 

L acces au Monitor a partir de I'AppleSoft se fait 
en tapant : 

CALL - 151 Entree sans bip dans le Monitor, 
ou encore : 

CALL - 155 Entree avec un bip dans le Monitor. 



ROUTINES D'ENTREE/SORTIE 



COUT ($FD£D) 

Appelle le sous-programme couront de sortie de 
caracteres. Le code ASCII du caractere se trouvera 
dans I'accumulateur. COUT appelle par la suite le 
sous-programme dont Padresse est memorisee en 
CSWL-CSWH (adresses $36 et $37). qui est la sortie 
standard de caracteres COUT1 . 

C0UT1 j$FDF0) 

Affiche le caractere present dans Paccumulateur 
sur I'ecran de I'Apple, a la position courante du cur- 
seur qui avance , celui-ci etant lui-meme lie" a une 
operation de sortie. II place le caractere en se ser- 
vant de I'etat de ladresse du mode normal ou 
inverse. II prend en compte les codes des caracte- 
res suivants ; 

- RETURN - ESPACE 

- Sautde ligne — BELL. 

II laisse tous les registres intacts a son retour. 

BtnflflHIIflllMHHflHHfltllligftgfffiigggiff 
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RDKEY ($FD0C) 

Rentrer un seul caractere. C'est le sous-programme 
d'entree de caracteres. II place un curseur clignotant 
6 la position courante, et saute a la routine dont 
l adresse est dans KSWL-KSWH ($38 et $39). Le plus 
souvent, c'est la routine standard d'entree KEYIN qui 
retourne avec le caractere dans I'accumulateur. 

KEYIN ($FD 1 B) 

Entree de caracteres par le clavier, et echo sur 
I ecran ; le code du caractere est dans I'accumula- 
teur, II lit le clavier de I'Apple II, attend qu'une tou- 
che soit enfoncee, et rend aleatoire le nombre 
memorise aux adresses $4E-$4F. Si une touche est 
actionnee, KEYIN supprime le curseur clignotant de 
I'ecran et renvoie le code de la touche se trouvant 
dans I'accumulateur. 

GETLN ($FD6A) 

C'est le sous-programme standard d'entree pour 

^■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■aaaaaa 
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des lignes entieres de coracteres. Le programme 
appellera GETLN, apres avoir place le solliciteur 
(prompt) a I'odresse $33, puis GETLN met la ligne 
de eommande dons la zone tampon d'entree, et le 
registre X contient la longueur de la ligne d'entree 
au retour du sous-programme. 

GETLNZ (SFD67) 

Entrer une ligne de eommande, C'est un outre point 
d'entree pour GETLN, qui enverra un caractere RETURN 



a la sortie standard, puis continuera dans GETLN. 
GETLN 1 ($FD6F) 

Entrer une ligne de eommande sans solliciteur, 
C'est un autre point d'entree pour GETLN, qui n'affi- 
chera pas de solliciteur avant d'accepter la ligne de 
eommande. Si l utilisateur annule la ligne de eom- 
mande a cause d un trop grand nombre de coracte- 
res, ou en tapant CTRL-X, alors GETLN1 utitisero le 
contenu de Tadresse $33 comme solliciteur quand il 
entrera une nouvelle ligne. 



ROUTINES D'ENTREE/SORTIE ET SES P A RTICU LARITES 



GETLNZ : entree » 5FD67 (64871 ou - 665) 

Situation des registres a I'entree : 
Accumulateur aucune action 
Registre X aucune action 
Registre Y oucune action 

Situation des parametres de la page zero : 

BASL.H aucune action 

CH oucune action 

CV ligne courante du curseur 

Situation au retour de la routine : 

Accumulateur contient le code ASCII 

Registre X contient le nombre de caracteres 

avant RETURN 
Registre Y contient WNDWDTH, qui est le 

nombre de lignes 
CH contient 

CV contient le numero de la ligne 

courante 

BASL,H contient les parametres CV et 

WNDWTH 

GETLN : entree » $FD6A (64874 ou - 662) 

Situation des registres a I'entree : 
Accumulateur aucune action 
Registre X aucune action 
Registre Y aucune action 

Situation des parametres de la page zero : 
BASL.H colonne et ligne courante 

CV numero de ligne qui vient d'etre 

rentree 

CH numero de ligne ou sera place le 

prompt 

Situation ou retour de la routine : 
identique a GETLNZ. 



Registre X 



NXTCHAR : entree » $FD75 (64885 ou - 651) 

Situation des registres a Ten tree : 
Accumulateur aucune action 

avant I'entree de donnees dans 

le buffer 
$0200 (Page $2) 
Registre Y aucune action 

Situation des parametres de la page zero : 
BASL r H comme CV, dans les limites de la 

lenetre 

CH position au moment de i'entree 

du caractere au clavier 

CV comme BASL,H dans la limite de 

la fenetre 

Situation au retour de la routine : 
identique d GETLNZ. 

CAPTST : entree — » $FD7E (64894 ou - 642) 

C'est une portie de la routine NXTCHAR. Les regis- 
tres et parametres de la poge zero sont identiques 
a la routine NXTCHAR. 

NOTCR : entree » $FD3D (64829 ou - 707) 

Situation des registres a I'entree : 
Accumulateur caractere a afficher, et recupere 
par COUT 

Registre X IN.X pointe le dernier caractere 
Registre Y aucune action 

Situation des parametres de la page zero : 
BASL,H aucune action 

CH aucune action 

CV aucune action 
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N0TCR1 : entree — i $FD5F (64863 ou - 673) 

N'est pas recommande pour une utilisation comme 
routine separee, 6 partir du clavier ou d un 
programme, 

CANCEL : entree » $FD62 (64866 ou - 67Q) 

Situation des registres a lentree : 
Accumulateur aucune action 
Registre X aucune action 
Registre Y aucune action 

Situation des parametres de la page zero : 

BASLH aucune action 

CH aucune action 

CV position de la ligne actuelle 

BACKSPC : entree » $FD71 (64881 ou - 655] 

Situation des registres a I'entree : 
identique 6 NEXTCHR 

Situation des parametres de la page zero : 
identique a NEXTCHR, une fois que le pointeur du 
registre X a ete mis a jour, suite a la suppression 
d J un caractere. 

RDCHAR : entree » $FD35 (64821 ou - 715) 

Situation des registres a I'entree : 
Accumulateur aucune action 
Registre X aucune action 
Registre Y aucune action 

Situation des parametres de la page zero : 
BASLH position de la ligne actuelle dans 

la limite de la fenetre. Comme CV 
CV ligne actuelle, comme BASL f H 

CH position horizontale du curseur 

dans les limites de la fenetre 

Situation au retour de la routine : 
Accumulateur eontient la valeur de la touche 
pressee 

Registre X pas de changement 
Registre Y eontient la valeur deCH 
BASLH CV et CH sont alteres si la touche 

ESC est solticitee 

RDKEY : entree » $FD0C (64780 ou - 756) 

Situation des registres a I'entree : 
Accumulateur aucune action 
Registre X aucune action 
Registre Y aucune action 

Situation des parametres de la page zero : 
BASLH la position de la ligne traitee actuelle- 

ment est stock ee a cette adresse 



CV 
CH 



identique a BASLH 

position horizontale actuelle du 



curseur 



Situation au retour de la routine ; 

Accumulateur eontient la valeur du caractere lu 

au clavier 
Registre X pas de changement 
Registre Y eontient la valeur de CH 
CV est utilise pour calculer la nou- 

velle ligne 
C H pas de changement 

BASLH eontient maintenant les nouvelles 

valeurs 



KEYIN : entree 



$FD1B (64795 ou - 741) 



Situation des registres d l entree ; 

Accumulateur valeur du caractere rentre lors du 

clignotement du curseur 
Registre X aucune action 
Registre Y utilise pour afficher la valeur de 

I'accumulateur a la position de 

BASLH 

Situation des parametres de la page zero : 
BASLH utilise par les registres X et Y 

CH aucune action 

CV position verticale de la ligne 

actuelle 

Situation au retour de la routine : 
Accumulateur eontient la valeur rentree au cla- 
vier (STROBE) 
Les autres registres restent inchanges. 

ESC : entree » $FD2F (64815 ou - 721) 

Situation des registres a I'entree : 
Accumulateur aucune action 
Registre X aucune action 
Registre Y aucune action 

Situation des parametres de la page zero : 
8ASL H aucune action 

C H aucune action 

CV position verticale de la ligne 

actuelle 

E5CNEW : entree » $FBA5 (64421 ou - 1115) 

Situation des registres 6 I'entree : 
Accumulateur aucune action 
Registre X aucune action 
Registre Y aucune action 

Situation des parametres de la page zero ; 
BASLH aucune action (suite page s*j 
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CH aucune action 

CV position verticals de la ligne 

actuelle 

ESCI : entree » $FC2C (64556 ou - 980) 

Situation des registres a I entree : 
Accumulateur aucune action 
Registre X aucune action 
Registre Y aucune action 

Situation des parametres de la page zero : 
BASL,H aucune action 

CH aucune action 

CV position verticale de la ligne 

actuelle 



Remarque : Le sous- program me CAPTST met 
automotiquement en affichage 
majuscule tout caradere rentre a partir du clavier. 

Signification des parametres de la page zero : 

CH ($24) Position horizonfale du curseur. 

Valeurs entre et 39 incluses. 

CV ($25) Position verticale du curseur. 

Valeurs entre et 23 incluses. 

BASL ($28) Adresse de la premiere colonne 

BASH ($29) de la ligne courante pour la page 
TEXT (1024 a 2000 ou $400 a 
$700), Octet poids faible (BASL), 
et octet poids fort (BASH). 



GRAND CONCOURS VERSION SOFT/APPLE FRANCE 

LES FRUITS D'UNE PASSION : 20 PROJETS SELECTIONNES 

Le grand jury du Concours Version Soft/Apple France "Les fruits d une passion 87" vient de 
selectionner les 20 projets qui recevront et ceci jusqu'au 15 septernbre le soutien des deve- 
loppeurs Version Soft et Apple, 

Dans son integralite le jury a souligne la diversity, la creativite et surtout la grande qualtte 
des quelques 50 dossiers qui lui ant ete proposes. 

Pour Neil Minkley Directeur du Developpement Strategique d'Apple France : 

* "L interet pour la programmation et notamment pour le developpement sur Macintosh 
et aujourd'hui sur I'Apple // GS est toujours plus grand, la diversite et fa creativite des 
projets se ectionnes le montrent largement. II est interessant de signaler egafement Je 
grand nombre de projets n'emanant pas d'informaficiens et ceci avec un tres haut 
niveau technique utilisant des interfaces conviviaux modernes". 

Pour Patrick Arnoux, redacteur en chef de Challenges : 

* *" e . concours montre encore une fois la grande creativite franchise dans le domaine du 
logicief et ceci dans tous les secteurs". 

Pour Philippe Voisin de Microshop : 

• "La passion pour le developpement independant sur Macintosh continue". 

Pour Gerard Verin directeur general de Version Soft : 

• "Ce concours demontre la capacite creative des developpeurs independents, Version 
Soft est particulierement fier de Jeur avoir offer! une structure orjginale pour mener a 
bien Jeurs projets", 

Rappelons que dans la deuxieme phase du grand Concours "Les f ruits d'une passion 87" les 
auteurs des 20 projets selectionnes recevront jusqu'au 15 septernbre un soutien au develop* 
pement de la part des developpeurs Version Soft et Apple. 

Ce sont parmi ces 20 projets que seront selectionnes les 5 gagnants, les prix etant decernes 
dans le cadre d'Apple Expo fin octobre. ■ 
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INITIATION 



Francois CALLET 




LA SOURIS ET 
L'ASSEMBLEUR 



QUATRIEME PARTI E : Le mouvement du pointeur a lecran 



A ceux qui oni suivi cette serie (et que j'entends 
piaffer d 'impatience) , ]e n'ai qu'une chose a dire : 
cet article sera ieur recompense. 

En effet, ce dernier module permet enfin de dispo- 
ser du pointeur sur I'ecran. II suffit de le rojouter au 
code deja existant, ainsi que les quelques instruc- 
tions suivontes : 

602A: 20 ED 61 JSR AFFICHE 



2D B4 61 JSR MOUVT 



Placement du pointeur 
sur lecran. 

Mouvement du pointeur 
s'ily a lieu. 



6106 
610F 

6118 



20 B4 61 
20 B4 61 
20 B4 61 



JSR MOUVT 
JSR MOUVT 
JSR MOUVT 



En ce qui concerne les explications du source, il y 
peu de chose a dire : il vous suffira de vous repor- 
ter au listage commente. Si vous voulez recupe- 
ret les coordonnees du pointeur dans I un de vos 
programmes en Basic, vous pourrez le faire par : 

PEEK (24873) pour I'abscisse 
PEEK (24874) pour I'ordonnee. 

Pour ceux qui desirent un exemple de program- 
me, voici quelques lignes "parlantes" : 

10 HOME 

20 PRINT CHR$ (4)"BLOAD SOURIS.C" 
30 CALL 24576 : REM Activation de la Souris 
40 X = PEEK (24873) : Y = PEEK (24874) 
50 VTAB 2 : PRINT "Abscisse : ";X; : HTAB 20 : 
PRINT "Ordonnee : ";Y 



60 IF X = 40 AND Y = 
70 VTAB 2 : HTAB 11 

PRINT " " 
80 GOTO 40 



2 THEN END 

: PRINT " ";:HTAB 31 



Une chose importante que j ai neglige de vous dire : 
cette serie d'articles ne s'adresse bien evidemment 
qu'aux personnes possedant un APPLE tic ou un 
APPLE !le + , equipes de la carte Souris. De plus, les 
routines decrites ne fonctionnent qu'en 80 colonnes. 
Je pense qu'a I'heure du IIGS, beaucoup d'entre 
vous possedent dej6 cette configuration. 

Je vous souhaite une bonne et fructueuse program- 
motion, et je vous dis a bientot, dans ces colonnes, 
pour d autr^s articles qui vous aideront a mieux 
maltriser votre APPLE en Assembleur. 

Tou jours pour ceux qui ne travail lent que sous 
Moniteur, commence! par recharger ce qui a ete 
fait jusqu'a present, ecrivez les octets du dernier 
module, en n'oubliant pas les lignes d inserer decri- 
tes plus haut, puis sauvez le tout par : 

BSAVE SOURIS.C A$6GQQ,L545. 

Lancer comme auparavant par CALL 24576 ou $6000G. 
Il est evident que l adresse de debut a ete choisie 
d une maniere empirique, et que vous etes seuls juges 
de I'endroit opportun ou debutero ce programme de 
traitement de la Souris, en fonction de vos propres 
applications (faites tout de meme attention aux adres- 
ses de branchement des modules entre eux si vous 
implantez ailleurs qu'en $6000). 

Francois GALLET. (suite page 56) 
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1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 



* * 

ft Programmat ion de la Sour is : Guatrieme partie # 

* * 

ft 



BASCALC 

ETAT 
PAGE1 
PAGE1X 
* 



EQU 


$FBC1 


EQU 


$77C 


EQU 


$C054 


EQU 


$C055 


ORG 


*61B4 



:Calcule l'adresse 
id'une 1 igne dont 1 
:Etat du bouton et 



.Commutateur 
:Cofnmutateur 



de base dans i 'eoran texte 
e numero est dans 1'accu. 
des interruptions 



iogiciel 
1 og i c i e I 



" Memo i re 
"Memo ire 



principal e' 
auxi 1 i aire" 



* 
ft 
ft 

ft Sous programme : MOUVT <Betecte si la sour is a bougee) 

ft — ■ — ■ — ■ ■ — . 

ft 

MOUVT LDA ETAT 



LDA 

ASL 
ASL 
ASL 
BCC 
JSR 
JSR 
JSR 
RTS 



BREAK 
RESTORE 
NEWCOORD 
AFF1CHE 



Etat du bouton et des interruptions 
3 pet its decalages a gauche**. 
...pour tester le bit 5... 
. . .sign if icat if du deplacement de la sour is 
C = si pas deplacement,*. 
C = 1 done on restaure le caractere occulta 
Nouvel les coordonnees, , , 
et affichage de la fleche 
Re tour d'appel 



ft 
ft 
ft 
ft 

RESTORE 



Sous programme : RESTORE 



ft 

RETOUR 



LDA 
PHA 
LDA 
PHA 

LDA 
JSR 
LDA 
JSR 
LDY 
LDA 

STA 
BIT 



PLA 
STA 
PLA 



CV 



CH 



QUOTX 

COM . LOG 

QUOTY 

BASCALC 

COL40 

MEMORY 

($28) ,Y 
PAGE1 



CH 



Sauvegarde de . . . 
...la position, . 
. . . actuel le du. . 
pointeur 



79 



N* de colonne compris entre et 
Nemo ire pr i nc i pa 1 e ou aux i 1 i a i re 
On charge le numero de ligne... 
...et on calcule 1'adresse de base ecran 
Numero de colonne 

On reprend le meme caractere que celui qui a 
ete sauvegarde dans AFFICHE 



. . »et on le remet en ] 
On se repositlonne en 
on n'y 6tait pas deja 

Rest aura t ion de. . . 
. . . la position. . . 
. . .du pointeur. . . 



ieu et place de I'icone 
memoire principale si 
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72 
73 
74 
75 
76 
77 
78 
79 
80 
81 

82 
83 
84 
85 
86 
87 
88 
89 
90 

9i 

92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 



STA CV 
JSR VTABZ 
RTS 



* . G t . * * 

placement a 1 '6cran 
Retour d'appel 



* 
* 
* 
# 



Sous programme : AFFICHE 







ibauvegarae ae . . . 


PHI 

rnn 




... i a p os iw on » * * 


LDA 


CH 


, , .actuel le ctu, . . 


PHA 

* 




pointeur 


LDA 


QUOTX 


H* de colonne compris entre et 79 


JSR 


COM. LOG 


Memo Ire principale ou auxillaire ? 


LDA 


QU0TY 


On charge le num^ro de ligne... 


JSR 


BASCALC 


. ,.et on calcule I'adresse de base ecran 


LDY 


COL40 


Numero de colonne 


LDA 


C$28), Y 


On prend le caractere present a cet endrolt 


STA 


MEMORY 


...et on le sauvegarde proviaoirement 


LDA 


£$42 


Code de Pi cone "fleche" 


STA 


C$28),Y 


...que l'on affiche a la place du caractere 






sauvegarde 


BIT 


PAGE1 


On se repositionne en m^molre principale si 






on n'y 6tait pas deja 



BRA RET OUR 



:Termine\ . . 



* 

N 
* 
* 
* 

COM. LOG R0R 



Sous programme : COM. LOG (commute en PAGE 1 si la colonne est impaire 

est pa ire et transforme le numero de colonne en 



ou en PAGE IX si el le 
40 colonnes . 



MEM 
C0NT4 



BCS MEM 
BIT PAGE1X 
BRA CQNT4 
BIT PAGE1 
ROL 
LSR 

STA COL40 
RTS 



Une rotation a droite pour tester le bit de 

poids le plus faible (bit de droite) 

S'il vaut 1 , le n ombre est impair — > Page 1.. 

S'U vaut , le nombre est pair — > Page IX... 

...et on saute la ligne qui suit 

Commutation en Page 1 si nombre impair 

On restitue le bit de droite... 

...on decale a droite pour diviser par 2 

et on stocke le resultat (en 40 colonnes) 

Ret our d'appel 



61B4 : AD 7C 07 OA OA OA 90 09 20 C6 61 20 63 61 20 ED 

cBo 61C4 : 61 60 A5 25 48 AS 24 48 AD 29 61 20 10 62 AD 2A 

^c. 61D4 : 61 20 CI F8 AC 23 61 AD 26 61 91 28 2C 54 CO 68 

^ * 1E4 s 85 24 <*8 85 25 20 22 FC 60 A5 25 48 A5 24 48 AD 

b \^> 61F4 : 29 61 20 10 62 AD 2A 61 20 CI FB AC 23 61 Bl 28 

& 6204 : 8D 26 61 A9 42 91 28 2C 54 CO 80 D3 6A B0 05 2C 

6214 : 55 CO 80 03 2C 54 CO 2A 4A 8D 23 61 60 
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Votre bibliotheque 
INFORMATIQUE 



TRUCS 
ASTUCES 

POUR 

TURBO 
PASCAL 



V 




XnS /VHCfrO V»PPUCATlON 



• TRUCSET ASTUCES 
POUR TURBO PASCAL 
(SGONINA WARNER) 

Bien des possesseurs de PC et 
compatibles connoissent le Ian- 
gage TURBO PASCAL et 1'appre- 
cient. Gageons qu'ils puiseront 
volontiers dans cet excellent 
bouquin de programmation dont 
ils experimenteront les nom- 
breux conseils, methodes, pro- 
grammes et utilitaires, 
Les principaux domames de la 
programmotion y sent traites 
avec clarte : tri, affichage r sai- 
sie, acces disque, date et heure 
sous MS/PC-DOS. 

A noter que les lecteurs peuvent 
obtenir une disquette contenant 
tous les programmes et utilitoi- 
res du livre (120 F). 

25B pages -U9FT7C 

Men Application IS, rue Sointe Cecile - 75009 PARIS 



• LE LIVRE 
DUG.W BASIC 
ETP.C BASIC (Bomanns) 

Si vous avez envie de programmer 



en GW-BASIC, laissez-vous guider 
pas a pas par I'outeur de ce 
manuel DATA BECKER. 

Comme le souligne son texte de pre- 
sentation, e'est une introduction 
pour le debutant et un aide-memoire 
pour I'utilisateur. On pourrait se con- 
tenter d'y survoler les nombreuses et 
interessantes possibility du Ian- 
gage, mois on va plus loin. En effet, 
apres avoir explique les instructions 
et les fonctions, les variables, la ges- 
tion des fichiers et les commandes 
d'imprimonte, on aborde des sujets 
au moins aussi interessants : 

— La programmotion sonore. 

— Le graphisme et la technique 
des fen et res. 

— Les interfaces. 

— La programmotion par in- 
terruptions. 

La compilation de programmes en 
GW-BASIC n'est pas negligee et 
pas davantage les liens entre le 
langage et MS-DOS. Plusieurs 
petits utilitaires sont fournis en 
prime... avant un index agreable 6 
consulted. 



328 pages- 149 FUC 

Micre Application 13, rue Sarnie C&tle 



75009 f 'AM 




du CW basic 



& P.C basic 



4f i 



par NESTOR 



PROGRAMMATION 

AVANCEE 

EN 

GW&PC 
BASIC 





• PROGRAMMATION 
A VANCEE EN 
G.W& PC BASIC 
(Bomanns) 

Suite logique du precedent, ce 
manuel s'adresse a des program- 
mers plus avertis, desirant con- 
cevoir des logiciels de qualite 
professionnelle. 

On retrouve la meme clarte que 
dans le premier, mais les exem- 
ples y sont beaucoup plus 
nombreux. 

Le lecteur saura comment redefi- 
nir des touches d'edition et de 
fonction, beneficiera d'une rou- 
tine d'entree universelle ainsi 
que d une adaptation universelle 
de I'imprimante. 

Les vecteurs d'interruptions de 
MS/DOS-BIOS n'auront plus de 
secrets pour lui et il saura (pres- 
que) tout des instructions et fonc- 
tions du compilateur QUICK 
BASIC. 

450 pages- 199 FTTC. 

Men Application 13. roe Sointe Ctkile 75009 PARIS 
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Rendre Lam au CS ! 



Sans doute ovez-vous deja constate que la 
bonne vieille routine de S.H. LAM (qui permet 
de mettre en place des routines HEX depuis le 
Basic) ne fonctionne pas toujours sur le GS. Sur 
un court programme, il se peut que I on ne 
remarque rien, mais en general, on provoque 
un message d'erreur montrant d I'habitue qu'il 
existe un probleme du cote de la pile. Le foui- 
neur que je suis ne pouvait se contenter de 
cette amere constatation. 

J'ai done decide de partir aux nouvelles et, 
dans ce cas, rien ne remplace une routine qui 
sauve la pile AVANT et la pile APRES. Avec ca, 
j'ai deja depanne des collaborateurs ameri- 
cains de NIBBLE et Call A.P.P.LE. II etait temps 
que je me rende le meme service ! 

Sauvez la petite routine GSLAM et la DEMO 
BLAM, puis faites RUN BLAM. Si tout se passait 
correctement, la routine de LAM s'executerait 
2 fois mais, on obtient un magnifique NEXT 
WITHOUT FOR IN 100* Pourtant, tout est bien 
a sa place. Faites un nouveau RUN. 



Vous pouvez retrouver : 

page zero AVANT en 
pile 
inbuf 



AVANT en 4100 
AVANT en 4200 



. , APRES en 4300 
. , APRES en 4400 
. , APRES en 4500 



Vous allez pouvoir vous rendre compte que le 
retour se fait avec un pointeur de pile errone. 
En $41 FE vous avez le pointeur de pile AVANT 
(E4) et, en $44FE, le meme pointeur apres, ce 
devrait etre le meme mais, bien entendu, ca 
ne Test pas (CC). 

Regardons de pres : 

en41E5/6 on trouve I'adresse D823-1, e'est 
l adresse utile de la routine de LAM 
(fin de la chaTne). 



en41E7 on a $81 e'est le token FOR. 

41E8/9 0956 e'est I'adresse de la variable I 

indice de boucle. 
41EA/E 81 80 00 00 00 e'est le pas 1 (step) 

en format flottant* 
41 EF 01 e'est lesignede step, ici +. 
41F0/4 82 00 00 00 00 e'est la limit© (2) de 

la boucle. 

41FS/6 0014 e'est le num de la ligne FOR 

(id 20). 

41F7/8 0850 e'est I'adresse de fin de la 
ligne 20. 

Le pointeur de pile etant incorrect en retour du 
CALL-144, APPLESOFT ne retrouve pas ces infor- 
mations et nous en informe brutalement avec 
son NEXT WITHOUT FOR. 

Maintenont que nous savons ce qui se produit, le 
remede est simple (j'elimine bien entendu la for- 
mule fer a souder/programmeur d'Eproms). 

Effacez les lignes 45 et 75 puis RUN. Cette fois 
tout se passera bien. CALL 768 aura sauve le 
pointeur de pile, CALL 773 I'aura retabli. 

Essayez, dans le programme de patch du DOS 
publie dans Tremplin Micro n°J4 l de remplacer 
tous les CALL-144 par CALL768:CALL-144: 
CALL773 et ajoutez la ligne 74 qui met en place 
les 10 octets qui sauvent et recuperent S, 



74 FOR I = 768 TO 77: READJ:POKEU: 
NEXT:DATA186, 142,251 ,1,96,174,251,1 ,154,96 



Si vous avez la disquette Tremplin Micro n°J6, 
transferez le fichier DOSYK sur votre drsquette 
DOS 3.3 favorite, e'est nettement moins fatigant. 

Le programme fonctionnera parfaitement sur 
votre GS. Bien entendu, le programme ainsi 
modifie fonctionnera aussi sur un lie ou un lie. 
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L 
A 



IB REM ******** 
15 REM * BLAM * 
20 REM ******** 

25 PRINT CHR* <4)"BL0AD 6SLAM' 

38 FOR PASS = 1 TO 2 

35 HEX* = " 1890:4c 58 FF" 

40 HEX* = HEX* + " N D823G" : FOR 
I = 1 TO LEN (HEX*) : POKE 5 
11+1, ASC < MID* (HEX*,I ,1 
)) ♦ 128: NEXT : POKE 72,0 



45 GOTO 60: REM " 
te 1 e remade 

58 CALL 768 

68 CALL 778: REM 

70 CALL - 144 

75 GOTO 90: REM ' 
te le reniede 

88 CALL 773 

98 CALL 782: REM 

95 NEXT 



prouisoire, sau 



'copie 3 pages 



provisoire, sau 



'copie 3 pages 



3 
4 
5 
6 
7 



******************************** 

* rendre LAM au GS * 

* * 

* Yvan KOENIG 18/06/87 * 
******************************** 











3 
9 


UNUSED 


= 


*1FB 


jAdresse ineraploye'e en pil 
j (sous APPLESOFT) 










ia 


















ii 




ORG 


*300 












12 










0300: 


BA 






13 


CALL768 


TSX 






0381 : 


8E 


F8 


01 


14 




STX 


UNUSED 


;Sauve pointeur de pile 


9384; 


68 






15 
16 




RTS 






0305: 


AE 


FB 


01 


17 


CALL773 


LDX 


UNUSED 




0388: 


9A 






18 




TXS 




;Restaure pointeur de pile 


0389: 


68 






19 
20 




RTS 






038A: 


A2 


40 




21 


CALL778 


LDX 


£>*4000 




030C; 


D0 


02 




22 




BNE 


DOSAVE 




030E: 


A2 


43 




23 
24 


CALL782 


LOX 


€>*4380 




8310: 


8E 


25 


03 


25 


DQSAVE 


STX 


:2+2 




8313: 


E8 






26 




I NX 






8314: 


8E 


26 


03 


27 




STX 


:3+2 




0317: 


E8 






28 




INX 






8318; 


8E 


31 


03 


29 




STX 


:4+2 




031B; 


BA 






30 




TSX 






031C: 


8E 


FB 


01 


31 
32 




STX 


UNUSED 


;0n pourra le retrouver 
;en 41 FB (aMant) ou 44FB 


831F: 


A2 


00 




33 




LDX 


£8 


< apres) 


8321 : 


B5 


00 




34 


:1 


LDA 


*88,X 




0323: 


90 


00 


40 


35 


12 


STA 


*4880,X 


;Sauye Page zero 


8326: 


BD 


09 


01 


36 




LDA 


*180,X 




0329: 


9D 


00 


41 


37 


53 


STA 


*4100,X 


;Sauve la pile 


832C: 


8D 


08 


02 


38 




LDA 


*280,X 




832F: 


9D 


80 


43 


39 


s4 


STA 


*4380,X 




0332: 


E8 






40 




INX 






0333: 


D8 


EC 




41 




BNE 


: 1 




0335: 


60 






42 




RTS 
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copie de disque J 5 dans /rams 



Guy-Hachette m'a fait part de demandes de lecteurs souhaitant copier aisement un 
disque 3"5 entier sur le disque virtue! /RAAA5 de leur GS (bien entendu, cela suppose 
que la carte d'extension soit equipeede 1AA0). 



Je suppose que ces demandes emanaient de 
lecteurs ne souhaifant pas utiliser PRODOS16 
et MOUSEDESK dont les temps de chargement 
sont decourageants. Je rappelle que si PRO- 
DOS 16 est indispensable pour acceder d la 
total ite des outils du GS, il est parfaitement 
possible de travailler sans luL Dans ce cas f le 
nombre d'outils reellement exploitable est foi- 
ble, mais on dispose d'un equipement "rapide" 
et de la quasi totalite des "anciens" logiciels. 

Possedant une certaine experience dans le 
domaine des commandes externes ProDOS, 
j'ai essaye de resoudre le probleme pose en 
creant une nouvelle commande que j'ai bapti- 
see DCOPY* J'ai bien entendu utilise MER- 
LIN. PRO, mon assembleur favori (en 8 bits, 
puisqu'd ce jour, en 16 bits, nous n'avons le 
choix qu'entre ORCA.M et son grand frere 
APW assembler). 

Precisons d'entree qu'il n'est pas question ici 
de vous donner un outil de piratage : la com- 
mande DCOPY ne sail copier que des disquet- 
tes normates, dont tous les fichiers seraient 
accessibles par les commandes clossiques de 
ProDOS. 

Le disque virtue! sera suppose dimensionne a 
8Q0K lors de la mise en route de la machine. Si 
tel n'etait pas le cas, il faudrait activer le tableau 
de bord par CTRL pomme ESC et specifier faille 
mini = faille maxi - 800K. En suite, retour au 
BASIC, extinction de la machine, attente de quel- 
ques secondes, puis remise sous tension. 

Le programme comporte deux modules. Le 
premier vous est deja connu, c'est RELOPRO 



dont la derniere mouture vous a ete presentee 
dans T rem pi in Micro n°!4 (SONSIR). Le fichier 
source ne sera pas reproduit ici. 

Le second est le module actif. II commence par 
une vingtoine destructions qui assurent la 
compotibilrte avec les commandes ProCMD de 
Glen Bredon. Ensuite, la commande envoyee 
est analysee. Si ce n est pas DCOPY, on ren- 
voie le bebe d BASIC. SYSTEM. Si nous sommes 
bien en presence de DCOPY, on laisse 
BASIC. SYSTEM analyser la suite qui peut etre : 

| (,Ssource ,Dsource) pour trans me ttre la 
localisation du disque source, dans le cas 
du transfert en direction du disque virtuel ; 

| (R t Sdest Ddest) pour indiquer la localisa- 
tion du disque recepteur, dans le cas ou I on 
souhaite transferer le contenu du disque 
virtue! sur un disque magnetique, II est 
alors INDISPENSABLE que le disque ait ete 
preaiablement formate. Le (R) qui suit 
tmmediatement DCOPY dans ce cas peut 
etre remplace par n'importe quelle chafne 
de caracteres assimilable d un titre de 
fichier puisque seule la presence d'un titre 
est significative pour DCOPY. Pas de titre 
et Ton copie dans /RAM5 ; un titre et Ton 
recupere /RAM5. 

Lorsque ('analyse est terminee, BASIC. SYSTEM 
rend le controfe d not re routine en TRUECMD. 
Si I'option S/D n'a pas ete employee, on 
s'arrete sur un "SYNTAX ERROR". Attention ! 
I'analyse effectuee par BASIC. SYSTEM ne per- 
met pas de verifier que Con a communique les 
deux para metres. (suite page 62) 
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II serait possible de reprogrammer f'analyse de 
la commande, ma is il me semble que <;a 
n'apporterait aucune garantie supplemental. 
Si Ton est capable d'oublier fun des parame- 
tres, on est capable de se tromper en definis- 
sant la valeur de ces parametres. Sachez d'ail- 
leurs que par defaut, ce sont les valeurs cor- 
respondent au disque actif qui seront 
employees. Done, si vous travaillez depuis 
S5D1, cest ce disque qui sera utilise. Ceux que 
cela chagrine pourront se reporter a POM'S 29 
oti Patrice NEVEU traitait le probleme de 
I'analyse complementaire. 

Quelques pointeurs sont initialises et Ton 
copie tranquillement les 160(3 blocs un par un. 
Cest ringard ! vont clamer les esprits forts, lis 
auront tort, et j'ai eu tort avant eux. J'ai cru 
qu'il serait interessant de travailler sur des 
groupes de blocs et non sur des blocs isoles. 
Helas ! un par un, seize par seize ou meme 
trente-deux par trente-deux, le temps de copie 
reste le meme, environ lmn40s. J'ai egale- 
ment compare avec le temps necessaire pour 
copier avec COPYII PLUS ; ce dernier est un 
peu plus long, mais c est du au fait que ce logi- 
ciel affiche les numeros des pistes qu'il mani- 
pule. Ceux qui ne me croient pas peuvent 
m'envoyer 30 francs. Je leur adresserai la ver- 
sion amelioree qui a I'insigne merite d'utiliser 
deux pages memoire au lieu d'une pour un 
resultat identtque. 

Lorsque la copie est terminee, il est possible 
de configurer le tableau de bord en boot sur 
RAM disk ce qui permet, en cas de besoin, de 
redemarrer tres rapidement. 



Deux remarques au sujet des 
commandes externes. 



1° Worth et Lechner ont presente dans 
Beneath Apple ProDOS une commande 
externe TYPE dont le code utile commence 
par un CLD accompagne du commentaire 
identifkateur pour Bl (pour les neophytes, 
Bl e'est BASIC. SYSTEM qui est en fait un 
COMMANDS.INTERPRETER, CI pour APPLE. 
Ouf !) et depuis, on voit publier des com- 
mandes externes de deux types. Cefles 
dont I'auteur a pris la commande TYPE 
comme exemple, aggravant parfois la 
situation avec le commentaire Obligatoire 



pour ProDOS, et eel les ecrites par des 
emules de St-Thomas qui ont tenu a se 
reporter aux sources, Ceux-la savent que 
ce n est pas pour les commandes externes 
qu'un CLD est necessaire (cf. note techni- 
que ProDOS £8) mais pour les routines 
QUIT qui doivent contenir cette instruction 
en $0100 (cf. note technique ProDOS £14). 
Ce n'est pas bien grave, mais il est parfois 
bon d'essayer de stopper la propagation 
des rumeurs. 

2° Dans la note technique ProDOS £8, il y a un 
bug sur lequel je crois utile de m'arreter. 
Afin de demander au Bl d'analyser les 
parametres Slot et Drive, ils codent : LDA 
£0, STA PBITS, LDA £4, STA PBITS. Admet- 
tons qu'il s'agisse d'une coquille (il y en a 
d'autres dans la meme page) et lisons STA 
PBITS + 1 pour la derniere instruction. 
Bl, bien brave, va lire la commande mais, 
puisque PBITS est nul, il ne decodera 
AUCUN parametre (faites $A6CB L si vous 
ne me croyez pas). Pour que Bl fasse 
I'analyse des parametres, il est INDISPEN- 
SABLE que PBITS soit different de zero. Per- 
sonnellement j'ai choisi, dans tous les cas 
ou je n'ai pas d'action particuliere 6 coder 
dans PBITS, de faire PBITS = $10 (nom de 
ftchier optionnel) ce qui force I'analyse 
sans effet parasite. 

Je me propose de vous offrir, dans un prochain 
numero, un petit programme MENU. SYSTEM 
qui vous permettra de lancer les differentes 
applications que vous pouvez avoir placees sur 
votre disquette. Pour ma part, j'y ai mis : 

• APPLEWRITER (version patchee), 

• MERLIN, PROCMD, COPYII PLUS, SY5UTIL, 
PROZAP... 

• et quelques autres gateries entre lesquel- 
les je me promene aisement. 

II me faut preciser que SYSUTIL.SYSTEM et les 3 
fichiers associes constituent la version GS des 
bons vieux Utilitaires Systemes du Ik et que 
e'est bien agreable lorsque Ton ne souhaite 
pas mettre PRODOS16 sur ses disques (ce qui 
interdit I'emploi de MouseDesk). Les lecteurs 
interesses peuvent en demander (poliment 
S.V.P.) copie a leur distributeur officiel. 
En cas de refus, contactez le support technique 
ou le Club Apple. ■ 
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6208! 4C IE 6: 



6204! 4C 

629?: D0 
620B: A0 
620D; B9 
6210: 28 
6213: C8 
6214: C8 
6216: 90 

t^.;?' 28 

621B: F8 



9E BE 
58 FF 

FB 
00 

C9 62 
ED FD 

23 
F5 

B? 00 
E9 



2 
3 
a 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

27 

1 

2 

3 

4 

6 



9 

18 

1 1 

12 

13 

14 

15 

16 

17 

18 

1? 

28 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 



* 

* 

N 
* 
N 



K. DCOPY. S utilise RELOPRO.S et DCOPY.S 

PRINT CHR$(4)"DCQPY ,5 source, D source" 
copie un disque 3"5 cotnplet en /RAM5 

PRINT CHR*(4> "DCOPYR ,S dest, D dest" 
copie /RAM5 sur la disquette Sdest,Ddest 

pr£al abl emen t format£e 



* Yvan KOENIG te 12/86/87 * 

HASADRS = 

HAS DATA S = 1 

EXTERN E ~ 1 

PROTEGE = 8 

INI ROUT = e 



= table adresses, sinon * 

= table DATAs, sinon * 

- commande externe, sinon * 

= on protege la routine * 

= on saute dans la routine * 

DISK KBD "DISK (8=non l=obj/d i sque ) u 

PUT DCOPY 

* DCOPY f Ss,Dd copie 3" 5 SsDd dans /RAM 5 * 

* * 

* DCOPYR ,Ss,Dd copie /RAM 5 dans 3" 5 SsDd * 

* d£ja -formats * 

* * 

* Yvan KOENIG le 12/86/87 * 



OMDJD 
MEMS I Z 
CHPGOT 



*EA 

*73 



;174 



a*************************************** ******* ******* 

DO SENTRY JMP PARSE 
NEXT CM D 

DOSEXIT JMP XRETURN 

AMPEXIT JMP IORTS 



AMP ENTRY BNE 
LDY 

:1 LDA 
JSR 
I NY 
CPY 
BCC 
JSR 
BEQ 



AMPEXIT 
£8 

CMDNAME ,Y 
COUT 

£AttPEND-CMDNAME+ 1 
: 1 

CHRGOT 

AMPEXIT ;Toujours 
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621D: EA 






33 


1 DBYTE 


DFB 


CMD_ID 


; Prov i so i re 








34 










621 E: A2 


84 




35 


PARSE 


LDX 


£CMDEND-CMDNAME-1 


6228: 8E 


52 


BE 


36 




STX 


XL EN 




6223 * £8 






37 




I NX 






6224; BD 


FF 


01 


38 


§L 


LDA 


IN-1 ,X 




6227: 29 


DF 




39 




AND 


£$DF 


;m i n->MAJ 


6229: 5D 


C8 


62 


40 




EOR 


CMDNAME- 1 f > 


r 


622Ci 38 






41 




SEC 






622D: D8 


D4 




42 




BNE 


DOSEXIT 


jpas MSLOT 


622F: CA 






43 




DEX 




6239: D8 


F2 




44 




BNE 


§L 




6232: 8E 


53 


BE 


45 




STX 


XCNUM 


jici X=0 


6235s A9 


11 




46 




LDA 


£"/.800t0881 


;Nom de Fichier optionnel 


6237: 8D 


54 


BE 


47 




STA 


PBITS 




623As A9 


84 




48 




LDA 


£7.88888198 


jAutorise Slot Driue 


623C: 8D 


55 


BE 


49 




STA 


PBITS+1 




623F: A9 


4C 




59 




LDA 


£ <TRUECMD 




6241 : 8D 


58 


BE 


51 




STA 


a 1 KfNR UK 




6244: AD 


46 


62 


52 




LDA 


HIBIT 










53 


HI BIT 




*-l 




6247: BD 


51 


BE 


IT .1 

j 4 




b I h 


XTRNADR+ 1 




624A: 18 






55 




CLC 






6248: 68 






56 




RTS 












57 










624C: AD 


57 


BE 


58 


TRUECMD 


LDA 


FBITS+i 




624F: 29 


84 




59 




AND 


r/88888188 




6251: D0 


84 




68 




BNE 


OK 




6233: A9 


18 




61 
62 


ERRSYNT 


LDA 


£*18 


; SYNTAX ERROR 


6255: 38 






63 




SEC 






6256: 66 






64 




RTS 












65 










6257: AD 


62 


BE 


66 


OK 


LDA 




;B00609Dd (98880081 ou 88088818) 


625A; 29 


82 




67 




AND 


£;<88889810 


;900000D0 


625C: 8A 






68 




ASL 




;880B8D88 


625D: 8A 






69 




ASL 




;0380D080 


625E: 8D 


61 


BE 


78 




ORA 


VSLOT 


j880BDslo 


6261 : 8A 






71 




ASL 




;000Dslo8 


6262: 8A 






72 




ASL 




;BeDslo08 


6263: 8A 






73 




ASL 




;8D5l D000 


6264: 8A 






74 




ASL 




;Dsl 00800 


6265: 8D 


C7 


62 


75 




STA 


UNITSRC 




6268: A9 


D8 




76 




LDA 


£*/.1101BB08 


;Slot5, Dri¥#2 


626A: 8D 


C8 


62 


77 




STA 


DESTUNIT 




626D: AD 


56 


BE 


78 




LDA 


FBITS 




6278: 4A 






79 




LSR 




;Y a-t-il un nont de -fichier ? 


6271 i 98 


8C 




88 




BCC 


:4 


j=> NON 


6273: AD 


C7 


62 


81 




LDA 


UNITSRC 


jOn ^change pour trans-fert 


6276: AE 


C8 


62 


82 




LDX 


DESTUNIT 


; /RAM 5 -> disquette 


6279: 8E 


C7 


62 


83 




STX 


UNITSRC 




627C: 8D 


C8 


62 


84 




STA 


DESTUNIT 










85 


:4 
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o£,/r * 




"7 A 




Q7 


rn d v riM c 

LUrT UINC 


1 HA 


MCMC 17*1 




A7R1 ' 


By 


CA 


x 7 


DO 




QTA 


HATARI IP+ 1 
Un 1 HDUr T 1 


{Utilise buffer & tout faire 


6284 : 


A9 


Aft 

'J -' 




99 




LDA 

i_ i7r~% 


£8 




6286: 


8D 


C5 


62 


98 




STA 


NUMBLOC 




62891 


8D 


C6 


62 


91 




STA 


NUM8L0C+ 1 












92 










628C: 


AD 


C7 


62 


93 


sJ 


LDA 


UNITSRC 




628F: 


80 


C2 


62 


94 




STA 


UNIT 


sNum^ro de l'unit# ORIGINE 


6292 i 


28 


88 


BF 


95 




JSR 


ML I 


6295: 


RA 






QA 




HEX 


86 


; Read_Bloc 


6296 : 




oz 




7 / 




Dm 


TABLE 




6298: 


BB 


24 




98 

7 Q 




ore 


CDDCV T X 
fcKKtAl 1 


;Oops, y-& un os 


629A: 


AD 


PR 


A7 


99 

7 7 




LL»H 


hPCTI IK1 1 T 
VC.O 1 UlH J 1 


629D s 


rh 




A7 






O 1 M 


UN T T 


■ MumAnn ria 1 •'urti rA HCCTIIvlATt ftW 

jMurTrero OP I un 1 ie Utol liNHI 1 UTi 


62A0 : 


£ v 


1 ft 


RP 

or 


1 1 






Ml 1 




62A3 : 


81 






I 82 




HPy 


R1 


■ 1 1 1 r> i + a D 1 or 
1 wl 1 t fr D 1 OC 


62A4 : 


CI 


62 




163 




DA 


TARI P 

1 HULL 




62A6 : 


B8 


1 6 




184 




BCS 


FRRFXIT 


* flnn c 

, UUp 3 ■ • ■ • 


62A8 : 




ps 


A? 


1 05 




TNT 


niimri nr 


,rrepare pour o i u t su i vsnv 


6*?AR * 

O.LMD • 


- - 


a o 








PNP 

□INC 


• 7 




O i-H It/ ■ 


pp 


pa 


A7 






TMP 

1 IMU 


Mi impi nr + 1 




62B0: 


AD 


C5 


62 


188 


:2 


LDA 


NUMBLOC 




62B3: 


C9 


40 




189 




CMP 


£<1660 


;A-t-on copie tous les btocs 


j z b j . 


AD 


C6 


£ 7 

62 


lib 




LDA 


1 1 1 im d i n r j. 1 
NUrlDLLIL+ 1 




X ODD ■ 


E9 


86 




1 1 1 




SBC 


t > 1 600 








uu 




1 1: 7 




err 


, i 

J 1 


5 Bl oc su i van t 


6zdL : 


l 8 






1 13 




CLC 






A7D.n • 
ozDU ■ 


60 






1 1 4 
1 1 c 




RTS 






A9RP • 
Oi.DC ■ 


jar 


OD 


DC 
DC 


n j 

1 1 A 


ERREXIT 


JMP 


BADCALL 












1 1 7 


















1 1 R 
1 1 o 


ENDPROG 
















1 1 9 

117 












1 7fl 
1 Zu 


ENDADRS 




* 












1 71 
1/1 












1 97 
1 










X7r i ■ 


a 7 

Bo 






1 71 
1 C J 


TABLE 


DFB 


3 




6ZLz : 


68 






1 7d 
1 £*t 


UNIT 


HEX 


68 




ocLo - 


a a 
Ho 






1 OR 
1 


DATA8UF 


HEX 


00 ,00 




/ore , 


88 


98 




1 7 X 

1 Zo 


NUMBLOC 


HEX 


00,00 












1 77 










OZU / . 


a a 






1 7Q 


UN1TSRC 


HEX 


00 




OZLo . 


a a 
oW 






1 70 


DESTUNIT 


HEX 


00 












( 70 

i JD 












LI 


ro 
L d 


Lr 


t 7 1 


CMDf>iAME 


ASC 


"DCOPY" 




A7rr • 


no 


no 














a7tp ■ 


AA 

H0 




L>z 


t 77 


CM D END 


ASC 


" <Reverse> 


,S source , D source" 


6ZD1 i 


E5 


F6 


E5 


F2 F3 


E5 BE AC 








62D9; 


D3 


A8 


F3 


EF F5 


F2 E3 E5 








62E1 : 


AC 


A8 


C4 


AB F3 


EF F5 F2 








62E9: 


E3 


E5 














62EB: 


8D 






133 


AMPEND 


HEX 


8D 












134 












135 


LAST 
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136 


ENDALL 






148 


BADCALL 


_ 


HBE8B 


137 


a******************************* 


149 


XRETURN 




*BE9E 


138 








150 








13? 


IN 


- 


$283 


151 


COUT 




*FDED 


148 








152 


IORTS 




$FF58 


141 


XTRNADR 




$BE58 


153 








142 


XLEN 




*BE52 


154 


MLI 




f BF99 


143 


XCNUM 




SBE53 


2? 


a******************************* 


144 


PBITS 




♦BE54 


30 




DO 


DISK 


145 


FBITS 




*BE56 


31 




SAM 


DCOPY 


144 


USLOT 




4BE61 


32 




FIN 




147 


UDRIM 




*BE62 


33 


*♦**•**■**#*#****#**#***-#* ******** 



—End assembly, 62B bytes, Errors: 9 



IfiCRANS I 
et n 
F1CHIERS {I! 
EN UN 
LANG AGE CM 



TECHNIQUES DE 
PROGRAAAMA TION EN C 

Graphisme et gestion decran (par Michel Laurent) 



Cet ouvrage presente les 
sources des fonctions gra- 
phiques fondomentales et 
des fonctions de gestion 
d ecran en mode alphanu- 
merique, fonctions qui 
viendront enrichir la btblio- 
theque standard du corn- 
pilateur. 

Deux chapitres traitent des 
aspects plus complexes de 
la programmation. L'un 
porte sur les notions de 
multifenetrage et de menus 
deroulants avec plusieurs 
programmes pouvant etre 
utilises sous la forme pro- 



posee ou etre integres a 
d outres programmes dap- 
plication. L'autre explique 
comment realiser, d partir 
de la bibliotheque graphi- 
que, des programmes 
d'animation et de composi- 
tion d'images. 

Chaque programme ou lisie 
de fonctions sources est 
abondomment commente 
et illustre. Les exemples 
elabores sous MS-DOS sont 
ainsi facilement transposa- 
bles a d'autres environne- 
ments. 

Livre broche de 306 pages — 248 F 




t'outeur i Michel laurent est tHvfolre tfVft dectorat 
essciences charge de recherche ev C.N.ft.S. II a 
developpe de nombreu* programmes deppltca- 
lions scienfifiques et est coauteur de plusieurs 
out rages pon/S out editions SVflFX. 



COMMUNIQUE DE PRESSE 



JOURNEE NATIONALE PORTE OUVERTE MICROTEL Le 26 septembre 1987 

Les 250 clubs MICROTEL ouvrent leurs portes au public le 26 septembre de lOh a 18h ; ce sera 
(occasion de decouvrir leurs dernieres realisations en informatique, en telematique (creation 
d un serveur par exemple), en robotique, de connaTtre les cours qu il est possible de suivre et 
de rencontrer les responsables de lassociation. 

MICROTEL c est avant tout une structure existent depuis maintenant pres de 10 ans et qui reste 
la seule organisation nationale de clubs d informatique en France, a laquelle plus de 50 000 
personnes ont adhere. 

Pour connaTtre la liste des clubs MICROTEL : Federation Nationale MICROTEL — 9, rue Huysmans — 
75006 PARIS — Tel. : (16-1) 45-44 70-23/24 ou directement sur minitel 36-14 code ADEMIR. 
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UN PRODUIT POUR PC ET COMPATIBLES 



C... TUB PORT ! 

avec BORLAND 

Si vous avez choisi de vous initier au langage C en llsant les arti- 
cles de Claude AU8RY, vous avez sans doute ete amene 6 vous 
offrir le C disponible sur le GS, celui que les developpeurs 
obliennent en meme temps que l enorme documentation distribute 
parVIF. 

Ce C'!6 est cerfes un bon produit, mais on ne peut pas dire qu'il 
brille par sa rapidite. Ah ! si seulement Borland pouvait s'interes- 
ser ou GS et nous fournir un logiciel similaire au Turbo C ... dispo- 
nible sur PC, notre vie, assurement changerait. TURBO C est un compilateur de programmes en langage C et procure au pro- 
grammer toutes les facilites que celui-ci est octuellement en droit d'attendre d un tel produit ; convivialite avec menus derou- 
lonts et rapidite grace a so technique monopasse. 

Mais oui, Turbo C ne s'omuse pas — et ne nous amuse pas davantage ! — a creer des fichiers intermediates temporaires sur 
disque, d'ou un gain de temps considerable : environ 7000 lignes 6 la minute sur PCtournanta6MH2. Pas mal, non ? 

Avec ce nouveau produit de Borland, on dispose d'abord d'un editeur pleine page comprenant la plupart des fonctions d'un bon 
editeur ; lecture, ecriture, copie, effacement, deplocement de n lignes. Cela se passe dans une fenetre tandis qu'une autre off i- 
che les eventuels messages du logiciel (erreurs et remarques diverses). C'est a partir de cette seconde fenetre qu'il est possible 
d'activer ou non I'aff ichage des messages et I'indenlation aulomatique. Le passage d'une fenetre a I'autre est on ne peut plus 
simple. On notera avec interet que la memaire est modulable, et ceia en standard. II en va de meme pour diverses options, mais 
nous n'avons teste le produit que sur un compatible AT. La documentation, tres complete, pourrait dispenser de I'achat d'autres 
ouvrages si el le etait en fran^ais... ce qui n est pas le cas. Reste quelle se revele reellement TRES COMPLETE. Gageons que, le 
succes aidant, elle ne tardera pas a etre proposee en frangois. TURBO C utilise le standard ANSI C et se conforme a la norme 
IEEE pour les operations en virgule flottonte. Avec ce produit perbrmont, vendu a un prix abordable (moins de 1 300 F) et accessi- 
ble aux non-inities, Borland met un atout supplemental dans son jeu et donne un bon coup de pouce ou langageC ... sur PC. 




BORLAND ET LA FORMATION 

Turbo Training est un centre de formation 
et de distribution exclusivement consocre 
agx produirs Borland. On peut y opprendre 
a programmer en Turbo Pascal, Turbo Basic. 
developper ses propres applications sous 
Reflex (Analysts ou s*initier d I'intelligenee 
orfificielle avec Turbo Prolog la vocation 
de Turbo Training est de couvrir foute la 
gamme des produits Borland. 

AU MENU : L'utilisaleur suit une lorma- 
lion classique d'une a deux jaurrtees lui per- 
mettant, soil de s'iniiier a un produit Bor- 
land /usque la inconnu, soit d'opprolondir 



ses connaissances d'un logiciel deja utilise. 
La duree et teneur du cours dependent alors 
du niveau de I'utilrsaleur. La formation 
repose sur des exemples pratiques : elle est 
assuree par des enseignants de haul niveau 
et s'effectue en petiis groupes (huii person- 
nes, ou maximum). 

A LA CARTE : C'esl un concept tout nou- 
veau qui offre a lutilisoteur de programmes 
Borland, la possibility de se rc-ncre cnez Turbo 
Training avec ses fichiers. d'exposer un pro- 
b'leme porticulier el de le resoudre a I aide 
d experts presents sur place. Lutilisateur salt 
enfin vers qui se toirmer lorsqu'il est confronts 
b un problemequi lui semble insoluble 



Celts formation est assuree de maniere mdivi- 
duelle, sous forme de irovaux diriges, tous les 
jours de I7h a 20 h (du lundi au vendredi). Ce 
creneau horairea I'ovantage d'etre accessible a 
loul te monde (eludianls, particuliers, person 
nes Iravaillant en entreprises|. Enfin, Turbo 
Training a decide d'offrir aux personnes inte- 
ressees, une demonstration grctuite sur le pro- 
duit Borland de leur choix ; celle-ci euro lieu 
lous les jours d porlir de 17h. untquemem sur 
rendez-vous. Turbo Training assure ddilleurs 
la vente au detail de tous les produits Borland. 

TRUBO TRAINING est ouwrt du lundi ou 
vendredi. de 9H30 d 20b, au 7B rue de Tut- 
bigo. dons le 3* arrondissemeaf a PARIS. 
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N ° 16 Bulletin de commande et dabonnement 



Nom 

Adresse complete 
Code postal | | | 



A retourner a : TREMPLIN MICRO — Senilis — 66100 CHATELLERAUIT 
Pr£nom 



Ville 



ICS DiSOUerrtS FONCTlONNfNT SOUS DOS FT ProOOS (a condition de posseder una varsion Apple de ce SYSTEMS D EXPLOITATION) 



QUANTITE 


DESIGNATION 


PRIX UNIT AIRE 


TOTAL 




Abonnement a 6 numeros (un on) : FRANCE 

G par ti f du numtra : 


1«*0 F 






Abonnement a 6 disquettes (un an) : FRANCE 

i» partlr du numAro 


GOO F 






MINIE 

LE BUREAU DE MINIE 

LES SOURCES DU BUREAU _ 


Logic iels 

de Claude AUBRY 


loll r 




150 F 




SO F 






DISQUETTE UTILITY-DISK (Marcel COTTINI) 


170 F 






1IVRE : APPLE 11 PRODOS, GUIDE DU PROGRAMMEUR APPLESOFT 


1 20 F 






LIVRE ; LE 6502 PAS a PAS 


120 F 






LIVRE + DISQUETTE ; CLINS D'CEIL AU 6502 


160 F 






LIVRE + DISQUETTE : ROUTINES LM POUR 65C02 ET 6502 


ISO F 






LIVRE + DISQUETTE : NOUVEllES ROUTINES POUR LE 65C02 


ISO F 






RELIURE-ECRIN 


40 F 














DISQUETTE-INDEX (N°l 6 12) 


30 F 






SIGNATURE (CHECK LIST) 


30 F 






DISQUETTE DE TREMPLIN MICRO : * f"e "ej 

□ N°l n\M°4 DN°7 □ N°10 □N°13 Lj N e 16 

□ N°2 UN°5 □ N°8 U N°ll n N°14 

□ N°3 □ N°6 nN°9 □ N°12 £3 N°15 


105 F 






NUMEROS DE □ N°l □ N a 2 □ N'J □ hU □ K*5 □ M 
TREMPLIN MICRO : ' □ N a 7 □ N a 8 □ H°9 D N°10 □ N"U □ N C 12 
□ N°I3 □ H°U □ N'lS □ M"16 


30 F 




33 F 





' Cachet la (air tea) case(i) de voire choix. 



Numero d'abonne ou de client : 



P anticipation aux frals d envoi (gratult pour les abonnes) + 10 F 
Envoi en paquet-poste recommande a partlr de 400 F 

Total a payer F 



Merc) do libollor votre r^glement b lordre de TREMPLIN MICRO / Editions JIBENA. 



Mode de regloment cholsi : LJ Cheque □ Mandat-lettre □ Carte Bleue 




N° do voire Carte Bleu© | 

Date d'explraflon I I I 1 
Montont a debitor 



J L 



J ! 



Signature (obligator) 



GUY-HACHETTE 




Chez votrei 
marchand de journaux > 



